Index: cgisetup/models/pgdb.scm
==================================================================
--- cgisetup/models/pgdb.scm
+++ cgisetup/models/pgdb.scm
@@ -113,10 +113,14 @@
 (define (pgdb:insert-tag dbh name )
   (dbi:exec dbh "INSERT INTO tags (tag_name) VALUES (?)" name ))
 
 (define (pgdb:insert-area-tag dbh tag-id area-id )
   (dbi:exec dbh "INSERT INTO area_tags (tag_id, area_id) VALUES (?,?)" tag-id area-id ))
+
+(define (pgdb:insert-run-tag dbh tag-id run-id )
+  (dbi:exec dbh "INSERT INTO run_tags (tag_id, run_id) VALUES (?,?)" tag-id run-id ))
+
 
 (define (pgdb:is-area-taged dbh area-id)
    (let ((area-tag-id (dbi:get-one dbh "SELECT id FROM area_tags WHERE area_id=?;" area-id)))
    (if area-tag-id 
            #t
@@ -125,10 +129,17 @@
 (define (pgdb:is-area-taged-with-a-tag dbh   tag-id area-id)
    (let ((area-tag-id (dbi:get-one dbh "SELECT id FROM area_tags WHERE area_id=? and tag_id=?;" area-id tag-id)))
    (if area-tag-id 
            #t
             #f)))
+
+(define (pgdb:is-run-taged-with-a-tag dbh   tag-id run-id)
+   (let ((run-tag-id (dbi:get-one dbh "SELECT id FROM run_tags WHERE run_id=? and tag_id=?;" run-id tag-id)))
+   (if run-tag-id 
+           #t
+            #f)))
+
 
 
 ;;======================================================================
 ;;  R U N S
 ;;======================================================================
@@ -188,15 +199,15 @@
   (dbi:get-one
     dbh
     "SELECT last_update FROM test_steps WHERE id=? ;"
     id))
 
-(define (pgdb:insert-test-step dbh test-id stepname state status event_time comment logfile last-update)
+(define (pgdb:insert-test-step dbh test-id stepname state status event_time comment logfile last-update )
   (dbi:exec
    dbh
    "INSERT INTO test_steps (test_id,stepname,state,status,event_time,logfile,comment,last_update)
-       VALUES (?,?,?,?,?,?,?, ? );"
+       VALUES (?,?,?,?,?,?,?,? );"
    test-id stepname  state   status  event_time   logfile   comment last-update))
 
 (define (pgdb:update-test-step dbh step-id test-id stepname state status event_time comment logfile last-update)
   (dbi:exec
     dbh
@@ -271,30 +282,30 @@
    id ))
 
 
 ;; create new test record
 ;;
-(define (pgdb:insert-test dbh run-id test-name item-path state status host cpuload diskfree uname run-dir log-file run-duration comment event-time archived last-update)
+(define (pgdb:insert-test dbh run-id test-name item-path state status host cpuload diskfree uname run-dir log-file run-duration comment event-time archived last-update pid)
   (dbi:exec
    dbh
-   "INSERT INTO tests (run_id,test_name,item_path,state,status,host,cpuload,diskfree,uname,rundir,final_logf,run_duration,comment,event_time,archived,last_update)
-       VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?);"
+   "INSERT INTO tests (run_id,test_name,item_path,state,status,host,cpuload,diskfree,uname,rundir,final_logf,run_duration,comment,event_time,archived,last_update,attemptnum)
+       VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?);"
 
    run-id  test-name item-path    state   status     host  cpuload diskfree uname
-   run-dir log-file  run-duration comment event-time archived last-update))
+   run-dir log-file  run-duration comment event-time archived last-update pid))
 
 ;; update existing test record
 ;;
-(define (pgdb:update-test dbh test-id run-id test-name item-path state status host cpuload diskfree uname run-dir log-file run-duration comment event-time archived last-update)
+(define (pgdb:update-test dbh test-id run-id test-name item-path state status host cpuload diskfree uname run-dir log-file run-duration comment event-time archived last-update pid)
   (dbi:exec
    dbh
    "UPDATE tests SET
-      run_id=?,test_name=?,item_path=?,state=?,status=?,host=?,cpuload=?,diskfree=?,uname=?,rundir=?,final_logf=?,run_duration=?,comment=?,event_time=?,archived=?,last_update=?
+      run_id=?,test_name=?,item_path=?,state=?,status=?,host=?,cpuload=?,diskfree=?,uname=?,rundir=?,final_logf=?,run_duration=?,comment=?,event_time=?,archived=?,last_update=?,attemptnum=?
     WHERE id=?;"
 
    run-id  test-name item-path    state   status     host  cpuload diskfree uname
-   run-dir log-file  run-duration comment event-time archived last-update test-id))
+   run-dir log-file  run-duration comment event-time archived last-update pid test-id))
 
 (define (pgdb:get-tests dbh target-patt)
   (dbi:get-rows
    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,