Index: db.scm ================================================================== --- db.scm +++ db.scm @@ -2082,11 +2082,11 @@ (begin ;; no need to treat this as an error by default (debug:print 4 "WARNING: call to db:get-tests-for-run with bad run-id=" run-id) ;; (print-call-chain (current-error-port)) '()) (let* ((qryvalstr (case qryvals - ((shortlist) "id,run_id,testname,item_path,state,status") + ((shortlist) "id,run_id,testname,state,status,item_path") ((#f) db:test-record-qry-selector) ;; "id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment") (else qryvals))) (res '()) ;; if states or statuses are null then assume match all when not-in is false (states-qry (if (null? states) @@ -2426,11 +2426,11 @@ db "SELECT attemptnum FROM tests WHERE id=?;" #f test-id)))) -(define db:test-record-fields '("id" "run_id" "testname" "state" "status" "event_time" +(define db:test-record-fields '("id" "run_id" "testname" "item_path" "state" "status" "event_time" "host" "cpuload" "diskfree" "uname" "rundir" "item_path" "run_duration" "final_logf" "comment" "shortdir" "attemptnum" "archived")) ;; fields *must* be a non-empty list ;;