@@ -2563,22 +2563,52 @@
 				      (iup:attribute-set! obj "MAX" (* maxruns 10))))
 		#:expand "HORIZONTAL"
 		#:max (* 10 (max (hash-table-size (dboard:tabdat-allruns-by-id tabdat)) 10))
 		#:min 0
 		#:step 0.01))
+
+;; make-simple-run                   procedure (target3772 id3773 runname3774 state3775 status3776 owner3777 event_time3778)
+;; rmt:simple-get-runs               procedure (runpatt1001 count1002 offset1003 target1004)
+;; simple-run-event_time             procedure (x3834)
+;; simple-run-event_time-set!        procedure (x3830 val3831)
+;; simple-run-id                     procedure (x3794)
+;; simple-run-id-set!                procedure (x3790 val3791)
+;; simple-run-owner                  procedure (x3826)
+;; simple-run-owner-set!             procedure (x3822 val3823)
+;; simple-run-runname                procedure (x3802)
+;; simple-run-runname-set!           procedure (x3798 val3799)
+;; simple-run-state                  procedure (x3810)
+;; simple-run-state-set!             procedure (x3806 val3807)
+;; simple-run-status                 procedure (x3818)
+;; simple-run-status-set!            procedure (x3814 val3815)
+;; simple-run-target                 procedure (x3786)
+;; simple-run-target-set!            procedure (x3782 val3783)
+;; simple-run?                       procedure (x3780)
+
+;; runs is <vec header runs>
+;;
+(define (dashboard:update-runs-data data rdat)
+  ;; update runs       id              => runrec
+  ;; update targ-runid target/runname  => run-id
+  (for-each
+   (lambda (runrec)
+     (let* ((run-id (simple-run-id runrec)))
+       (sparse-vector-set! (dboard:rdat-runs rdat) run-id runrec)
+       (hash-table-set! (dboard:rdat-targ-runid rdat)
+			(conc (simple-run-target runrec) "/" (simple-run-runname runrec))
+			run-id)))
+   data))
 
 (define (new-runs-updater commondat rdat)
   (let* ((last-update       (dboard:rdat-last-update     rdat))
 	 (targ-sql-filt    (dboard:rdat-targ-sql-filt    rdat))
 	 (runname-sql-filt (dboard:rdat-runname-sql-filt rdat))
 	 (state-sql-filt   (dboard:rdat-state-sql-filt   rdat))
 	 (status-sql-filt  (dboard:rdat-status-sql-filt  rdat))
 	 ;; Use (db:get-value-by-header (db:get-header runinfo)(db:get-rows runinfo))
-	 (newrunsdata      (rmt:get-runs-by-patt (dboard:rdat-keys rdat)
-						 (or targ-sql-filt "%")
-						 #f #f #f #f last-update)))
-    (print "newrunsdata: " newrunsdata)
+	 (newdata          (rmt:simple-get-runs runname-sql-filt #f #f targ-sql-filt last-update)))
+    (dashboard:update-runs-data newdata rdat)
     (dboard:rdat-last-update-set! rdat (- (current-seconds) 10))
     '()))
 	 
 (define (make-runs-view commondat rdat tab-num)
   ;; register an updater