569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
|
(if (null? rows)
(begin
(debug:print-info 0 "No matching run found.")
(exit 1))
(let* ((row (car (vector-ref runsdat 1)))
(run-id (db:get-value-by-header row header "id")))
(if (args:get-arg "-set-run-status")
(cdb:remote-run db:set-run-status #f run-id (args:get-arg "-set-run-status"))
(print (open-run-close db:get-run-status #f run-id))
)))))))
;;======================================================================
;; Query runs
;;======================================================================
|
|
|
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
|
(if (null? rows)
(begin
(debug:print-info 0 "No matching run found.")
(exit 1))
(let* ((row (car (vector-ref runsdat 1)))
(run-id (db:get-value-by-header row header "id")))
(if (args:get-arg "-set-run-status")
(cdb:remote-run db:set-run-status #f run-id (args:get-arg "-set-run-status") msg: (args:get-arg "-m"))
(print (open-run-close db:get-run-status #f run-id))
)))))))
;;======================================================================
;; Query runs
;;======================================================================
|