@@ -327,18 +327,21 @@ '(allruns-by-id allruns))) ;; FIELDS OF INTEREST (dboard:tabdat->alist tabdat-item))))) (define (dboard:launch-testpanel run-id test-id) - (let* ((cfg-sh (conc *common:this-exe-dir* "/cfg.sh")) - (cmd (conc - (if (common:file-exists? cfg-sh) - (conc "source "cfg-sh" && ") - "") - *common:this-exe-fullpath* - " -test " run-id "," test-id - " &"))) + (let* (;; (cfg-sh (conc *common:this-exe-dir* "/cfg.sh")) + ;; (cmd (conc + ;; (if (common:file-exists? cfg-sh) + ;; (conc "source "cfg-sh" && ") + ;; "") + ;; *common:this-exe-fullpath* + ;; " -test " run-id "," test-id + ;; " &")) + (cmd (conc *common:this-exe-dir*"/../dashboard " + "-test " run-id "," test-id + " &"))) (system cmd))) (define (dboard:tabdat-target-string vec) (let ((targ (dboard:tabdat-target vec))) (if (list? targ)(string-intersperse targ "/") "no-target-specified")))