Index: /trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm
===================================================================
--- /trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm	(revision 28951)
+++ /trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm	(revision 28952)
@@ -16,14 +16,15 @@
 ###########################################################################
 sub getBatchList {
-    my ($self, $exposures) = @_;
-
-    my $query = $self->{_db}->prepare(<<SQL);
-    SELECT exp_id, batch_id, survey_id 
+    my ($self, $exposures, $fromTime, $toTime) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    SELECT created, exp_id, batch_id, survey_id, deleted 
         FROM batches 
         WHERE processed = 1 
         AND on_datastore = 1
-        AND created > '2010-08-10 12:03:40';
-SQL
-   
+        AND created >= '$fromTime'
+        AND created <= '$toTime';
+SQL
+
     # TODO remove date restriction
     $query->execute;
@@ -44,5 +45,5 @@
 
     my $query = $self->{_db}->prepare(<<SQL);
-    SELECT exp_id, batch_id, survey_id 
+    SELECT created, exp_id, batch_id, survey_id, deleted 
         FROM batches 
         WHERE batch_id = $batch_id 
@@ -140,5 +141,6 @@
     SELECT COUNT(*) 
         FROM batches 
-        WHERE exp_id = $expId 
+        WHERE exp_id = $expId
+        AND created > '2010-08-12'
         AND processed = 1;
 SQL
@@ -186,4 +188,22 @@
 
     return $batchId;
+}
+
+#######################################################################################
+#
+# Updates an existing database record to show datastore status
+#
+#######################################################################################
+sub setBatchAsDeleted {
+    my ($self,$batchId, $expId) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    UPDATE batches 
+        SET deleted = 1 
+        WHERE batch_id = $batchId 
+        AND exp_id = $expId;
+SQL
+
+        $query->execute; # TODO check response of these
 }