@@ -1522,10 +1522,28 @@
        (set! res count))  ;; select * from tests where run_id=1 and uname = 'n/a' and item_path='';
      (db:get-db dbstruct run-id)
      "SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');" run-id)
     res))
 
+ ;; override states to count with list of strings.
+;;
+(define (db:get-count-tests-running-for-run-id -blah db run-id states)
+  (let ((res 0)
+	(sqrystr (conc "SELECT count(id) FROM tests WHERE state in ('"
+		       (if states
+			   (string-intersperse states "','")
+			   "RUNNING','LAUNCHED','REMOTEHOSTSTART")
+		       "') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');")))
+    (sqlite3:for-each-row
+     (lambda (count)
+       (set! res count))  ;; select * from tests where run_id=1 and uname = 'n/a' and item_path='';
+     db
+     sqrystr run-id)
+     ;; "SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');" run-id)
+    res))
+   
+    
 (define (db:get-count-tests-running-in-jobgroup dbstruct run-id jobgroup)
   (if (not jobgroup)
       0 ;; 
       (let ((res        0)
 	    (testnames '()))