Index: /tags/ipp-20110505/ippTasks/lap.pro
===================================================================
--- /tags/ipp-20110505/ippTasks/lap.pro	(revision 31489)
+++ /tags/ipp-20110505/ippTasks/lap.pro	(revision 31490)
@@ -172,4 +172,6 @@
     ipptool2book stdout lapNewRuns -uniq -key lap_id -setword dbname $options:0 -setword pantaskState INIT
 
+    process_cleanup lapNewRuns
+
     if ($VERBOSE > 2)
       book listbook lapNewRuns
@@ -207,9 +209,8 @@
 
 
-    book getpage lapNewRuns $lap_NewPage -var lapNewPageName 
+    book getpage lapNewRuns -var lapNewPageName -key pantaskState INIT
 
     $lap_NewPage ++
     if ($lap_NewPage >= $N) set lap_NewPage = 0
-
 
     if ("$lapNewPageName" == "NULL") break
@@ -220,5 +221,4 @@
 
     option $LAP_ID
-    book delpage lapNewRuns $LAP_ID
 
     $run = lap_science.pl --chip_mode --dbname $DBNAME --lap_id $LAP_ID
@@ -230,4 +230,5 @@
   # success
   task.exit  0
+    process_exit lapNewRuns $options:0 0
     if ($VERBOSE > 2)
       book listbook lapNewRuns
@@ -236,11 +237,14 @@
   # locked list
   task.exit    default
-    showcommand failure
-  end
-  task.exit    crash
-    showcommand crash
-  end
-  #operation times out?
-  task.exit    timeout
+    process_exit lapNewRuns $options:0 0
+    showcommand failure
+  end
+  task.exit    crash
+    process_exit lapNewRuns $options:0 0
+    showcommand crash
+  end
+  #operation times out?
+  task.exit    timeout
+    process_exit lapNewRuns $options:0 0
     showcommand timeout
   end
@@ -286,4 +290,6 @@
   task.exit  0
     ipptool2book stdout lapRunRuns -uniq -key lap_id -setword dbname $options:0 -setword pantaskState INIT
+    
+    process_cleanup lapRunRuns
 
     if ($VERBOSE > 2)
@@ -323,5 +329,5 @@
 
 
-    book getpage lapRunRuns $lap_RunPage -var lapRunPageName
+    book getpage lapRunRuns -var lapRunPageName -key pantaskState INIT
 
     $lap_RunPage ++
@@ -335,5 +341,4 @@
 
     option $LAP_ID
-    book delpage lapRunRuns $LAP_ID
 
     $run = lap_science.pl --monitor_mode --dbname $DBNAME --lap_id $LAP_ID
@@ -345,5 +350,7 @@
   # success
   task.exit  0
-    if ($VERBOSE > 2)
+    process_exit lapRunRuns $options:0 0
+    if ($VERBOSE > 2)
+
       book listbook lapRunRuns
     end
@@ -351,11 +358,14 @@
   # locked list
   task.exit    default
-    showcommand failure
-  end
-  task.exit    crash
-    showcommand crash
-  end
-  #operation times out?
-  task.exit    timeout
+    process_exit lapRunRuns $options:0 0
+    showcommand failure
+  end
+  task.exit    crash
+    process_exit lapRunRuns $options:0 0
+    showcommand crash
+  end
+  #operation times out?
+  task.exit    timeout
+    process_exit lapRunRuns $options:0 0
     showcommand timeout
   end
@@ -402,4 +412,5 @@
     ipptool2book stdout lapDoneRuns -uniq -key lap_id  -setword dbname $options:0 -setword pantaskState INIT
 
+    process_cleanup lapDoneRuns
     if ($VERBOSE > 2)
       book listbook lapRuns
@@ -437,5 +448,5 @@
 
 
-    book getpage lapDoneRuns $lap_DonePage -var lapDonePageName 
+    book getpage lapDoneRuns -var lapDonePageName -key pantaskState INIT
 
     $lap_DonePage ++
@@ -448,6 +459,5 @@
     book getword lapDoneRuns $lapDonePageName dbname -var DBNAME
 
-    book delpage lapDoneRuns $LAP_ID
-
+    option $LAP_ID
     $run = lap_science.pl --cleanup_mode --dbname $DBNAME --lap_id $LAP_ID
 
@@ -458,5 +468,5 @@
   # success
   task.exit  0
-
+    process_exit lapDoneRuns $options:0 0
     if ($VERBOSE > 2)
       book listbook lapDoneRuns
@@ -465,12 +475,15 @@
   # locked list
   task.exit    default
-    showcommand failure
-  end
-  task.exit    crash
-    showcommand crash
-  end
-  #operation times out?
-  task.exit    timeout
-    showcommand timeout
-  end
-end
+    process_exit lapDoneRuns $options:0 0
+    showcommand failure
+  end
+  task.exit    crash
+    process_exit lapDoneRuns $options:0 0
+    showcommand crash
+  end
+  #operation times out?
+  task.exit    timeout
+    process_exit lapDoneRuns $options:0 0
+    showcommand timeout
+  end
+end