Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -566,11 +566,13 @@ ;; ;; create a virtual table of all the tests ;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") ) ;; (define (update-rundat tabdat runnamepatt numruns testnamepatt keypatts) - (let* ((allruns (rmt:get-runs runnamepatt numruns (dboard:tabdat-start-run-offset tabdat) keypatts)) + (let* ( + ;(allruns (rmt:get-runs runnamepatt numruns (dboard:tabdat-start-run-offset tabdat) keypatts)) + (allruns (rmt:get-runs-by-patt (dboard:tabdat-keys tabdat) "%" #f #f #f #f)) (header (db:get-header allruns)) (runs (db:get-rows allruns)) (start-time (current-seconds)) (runs-hash (let ((ht (make-hash-table))) (for-each (lambda (run)