Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -189,14 +189,14 @@
 	 (result      '())
 	 (maxtests    0)
 	 (states      (hash-table-keys *state-ignore-hash*))
 	 (statuses    (hash-table-keys *status-ignore-hash*)))
     ;; Instead of this mechanism lets try setting number of runs based on "result" below
-    ;; (if (> (+ *last-update* 300) (current-seconds)) ;; every five minutes
-    ;;     (begin
-    ;;       (set! *last-update* (current-seconds))
-    ;;       (set! *tot-run-count* (db:get-num-runs *db* runnamepatt))))
+    (if (> (+ *last-update* 300) (current-seconds)) ;; every five minutes
+        (begin
+          (set! *last-update* (current-seconds))
+          (set! *tot-run-count* (db:get-num-runs *db* runnamepatt))))
     (for-each (lambda (run)
 		(let* ((run-id   (db:get-value-by-header run header "id"))
 		       (tests    (db-get-tests-for-run *db* run-id testnamepatt itemnamepatt states statuses))
 		       (key-vals (get-key-vals *db* run-id)))
 		  (if (> (length tests) maxtests)
@@ -204,11 +204,11 @@
 		  (if (not (null? tests))
 		      (set! result (cons (vector run tests key-vals) result)))))
 	      runs)
     (set! *header*  header)
     (set! *allruns* result)
-    (set! *tot-run-count* (+ 1 (length *allruns*)))
+    ;; (set! *tot-run-count* (+ 1 (length *allruns*)))
     maxtests))
 
 (define *collapsed* (make-hash-table))
 ; (define *row-lookup* (make-hash-table)) ;; testname => (rownum lableobj)
 
@@ -431,20 +431,23 @@
 	 (result  '())
 	 (i       0))
     ;; controls (along bottom)
     (set! controls
 	  (iup:hbox
-	   (iup:frame 
-	    #:title "filter test and items"
+	   (iup:vbox
+	    (iup:frame 
+	     #:title "filter test and items"
+	     (iup:hbox
+	      (iup:textbox #:size "60x15" #:fontsize "10" #:value "%"
+			   #:action (lambda (obj unk val)
+				      (update-search "test-name" val)))
+	      (iup:textbox #:size "60x15" #:fontsize "10" #:value "%"
+			   #:action (lambda (obj unk val)
+				      (update-search "item-name" val)))))
 	    (iup:hbox
-	     (iup:textbox #:size "60x15" #:fontsize "10" #:value "%"
-			  #:action (lambda (obj unk val)
-				     (update-search "test-name" val)))
-	     (iup:textbox #:size "60x15" #:fontsize "10" #:value "%"
-			  #:action (lambda (obj unk val)
-				     (update-search "item-name" val)))))
-	   (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
+	     (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
+	     ))
 	   ;; (iup:button "<-  Left" #:action (lambda (obj)(set! *start-run-offset*  (+ *start-run-offset* 1))))
 	   ;; (iup:button "Up     ^" #:action (lambda (obj)(set! *start-test-offset* (if (> *start-test-offset* 0)(- *start-test-offset* 1) 0))))
 	   ;; (iup:button "Down   v" #:action (lambda (obj)(set! *start-test-offset* (if (>= *start-test-offset* (length *alltestnamelst*))(length *alltestnamelst*)(+ *start-test-offset* 1)))))
 	   ;; (iup:button "Right ->" #:action (lambda (obj)(set! *start-run-offset*  (if (> *start-run-offset* 0)(- *start-run-offset* 1) 0))))
 	   (iup:frame 
@@ -461,11 +464,15 @@
 						    (hash-table-delete! *status-ignore-hash* "FAIL"))))
 	      (iup:toggle "WARN"   #:action   (lambda (obj val)
 						(if (eq? val 1)
 						    (hash-table-set! *status-ignore-hash* "WARN" #t)
 						    (hash-table-delete! *status-ignore-hash* "WARN"))))
-	      (iup:toggle "WAIVED"   #:action   (lambda (obj val)
+	      (iup:toggle "CHECK"   #:action   (lambda (obj val)
+                                                  (if (eq? val 1)
+                                                      (hash-table-set! *status-ignore-hash* "CHECK" #t)
+                                                      (hash-table-delete! *status-ignore-hash* "CHECK"))))
+              (iup:toggle "WAIVED"   #:action   (lambda (obj val)
 						  (if (eq? val 1)
 						      (hash-table-set! *status-ignore-hash* "WAIVED" #t)
 						      (hash-table-delete! *status-ignore-hash* "WAIVED"))))
 	      (iup:toggle "STUCK/DEAD"   #:action   (lambda (obj val)
 						  (if (eq? val 1)

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -17,10 +17,11 @@
 (import (prefix sqlite3 sqlite3:))
 
 (declare (unit db))
 (declare (uses common))
 (declare (uses keys))
+(declare (uses ods))
 
 (include "common_records.scm")
 (include "db_records.scm")
 (include "key_records.scm")
 

Index: ods.scm
==================================================================
--- ods.scm
+++ ods.scm
@@ -5,11 +5,11 @@
 ;; 
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE
 
-(use csv-xml)
+(use csv-xml regex)
 (declare (unit ods))
 (declare (uses common))
 
 (define ods:dirs
   '("Configurations2"