Index: cgisetup/pages/index_view.scm
==================================================================
--- cgisetup/pages/index_view.scm
+++ cgisetup/pages/index_view.scm
@@ -15,10 +15,12 @@
 	    ;; add visible to columns to help visualize them e.g. "col_12 visible"
 	    ;; BEGINNING OF HEADER
 	    (s:div 'class "col_12"
 		   (map (lambda (area)
 			  (s:p "data=" (conc area)))
-			(pgdb:get-tests dbh "%"))
+			;; (pgdb:get-tests dbh "%")
+			(pgdb:get-stats-given-target dbh "v1.63/%")
+			)
 		   index:jquery
 		   index:javascript
 		   ))))))
 

Index: pgdb.scm
==================================================================
--- pgdb.scm
+++ pgdb.scm
@@ -166,5 +166,12 @@
    dbh
    "SELECT t.id,t.run_id,t.test_name,t.item_path,t.state,t.status,t.host,t.cpuload,t.diskfree,t.uname,t.rundir,t.final_logf,t.run_duration,t.comment,t.event_time,t.archived,
            r.id,r.target,r.ttype_id,r.run_name,r.state,r.status,r.owner,r.event_time,r.comment
      FROM tests AS t INNER JOIN runs AS r ON t.run_id=r.id
       WHERE r.target LIKE ?;" target-patt))
+
+(define (pgdb:get-stats-given-target dbh target-patt)
+  (dbi:get-rows
+   dbh
+   "SELECT COUNT(t.id),t.status,r.target FROM tests AS t INNER JOIN runs AS r ON t.run_id=r.id
+        WHERE t.state='COMPLETED' AND r.target LIKE ? GROUP BY t.status,r.target;" target-patt))
+