Index: multi-dboard.scm
==================================================================
--- multi-dboard.scm
+++ multi-dboard.scm
@@ -145,10 +145,12 @@
 
 ;; testdat, basic test data
 (define-record testdat
   run-id             ;; what run is this from
   id                 ;; test id
+  testname           ;; test name
+  itempath           ;; item path
   state              ;; test state, symbol
   status             ;; test status, symbol
   event-time         ;; when the test started
   duration           ;; how long the test took
   )
@@ -226,11 +228,11 @@
 		     (hash-table-ref/default runs run-id #f)
 		     #f))
 	 (db     (case run-id ;; if already opened, get the db and return it
 		   ((-1) (areadat-monitordb areadat))
 		   ((0)  (areadat-maindb    areadat))
-		   (else (if run
+		   (else (if rundat
 			     (rundat-db rundat)
 			     #f)))))
     (if db
 	db ;; merely return the already opened db
 	(let* ((dbfile (areadb:dbfile-path areadat run-id)) ;; not already opened, so open it
@@ -243,11 +245,11 @@
 	    ((-1)(areadat-monitordb-set! areadat db))
 	    ((0) (areadat-maindb-set!    areadat db))
 	    (else (rundat-db-set!        rundat  db)))
 	  db))))
 
-;; populate the areadat tests info, does NOT fill the tests data itself
+;; populate the areadat tests info, does NOT fill the tests data itself unless asked
 ;;
 (define (areadb:populate-run-info areadat)
   (let* ((runs   (or (areadat-runs areadat) (make-hash-table)))
 	 (keys   (areadat-run-keys areadat))
 	 (maindb (areadb:open areadat 0)))
@@ -256,13 +258,46 @@
 				 (dat (apply make-rundat (append row (list #f #f))))) ;; add placeholders for tests and db
 			     (print row)
 			     (hash-table-set! runs id dat))))
 	   (sql maindb (conc "SELECT id,"
 			     (string-intersperse keys "||'/'||")
-			     ",runname,state,status,event_time FROM runs WHERE state != 'DELETED';")))
+			     ",runname,state,status,event_time FROM runs WHERE state != 'deleted';")))
+    areadat))
+
+;; given an areadat and target/runname patt fill up runs data
+;;
+;; ?????/
+
+;; given a list of run-ids refresh/retrieve runs data into areadat
+;;
+(define (areadb:fill-tests areadat #!key (run-ids #f))
+  (let* ((runs   (or (areadat-runs areadat) (make-hash-table))))
+    (for-each
+     (lambda (run-id)
+       (let* ((rundat (hash-table-ref/default runs run-id #f))
+	      (tests  (if (and rundat
+			       (rundat-tests rundat)) ;; re-use existing hash table?
+			  (rundat-tests rundat)
+			  (let ((ht (make-hash-table)))
+			    (rundat-tests-set! rundat ht)
+			    ht)))
+	      (rundb  (areadb:open areadat run-id)))
+	 (query (for-each-row (lambda (row)
+				(let* ((id         (list-ref row 0))
+				       (testname   (list-ref row 1))
+				       (itempath   (list-ref row 2))
+				       (state      (list-ref row 3))
+				       (status     (list-ref row 4))
+				       (eventtim   (list-ref row 5))
+				       (duration   (list-ref row 6)))
+				  (hash-table-set! tests id
+						   (make-testdat run-id id testname itempath state status eventtim duration)))))
+		(sql rundb "SELECT id,testname,item_path,state,status,event_time,run_duration FROM tests WHERE state != 'DELETED';"))))
+     (or run-ids (hash-table-keys runs)))
     areadat))
-	
+    
+
 ;; initialize and refresh data
 ;;		
 (define (dboard:general-updater con port)
   (for-each
    (lambda (window-id)
@@ -298,12 +333,12 @@
 				  (full-path    (cons area-name partial-path)))
 			     (if (not (hash-table-exists? seen-nodes full-path))
 				 (begin
 				   (print "INFO: Adding node " partial-path " to section " area-name)
 				   (tree:add-node current-tree "Areas" full-path)
+				   (areadb:fill-tests area-dat run-ids: (list run-id))))
 				   (hash-table-set! seen-nodes full-path #t)))))
-		       ))
 		   (hash-table-keys runs))))))
 	(hash-table-keys areas))))
    (hash-table-keys *windows*)))
 
 ;;======================================================================