Changeset 28952

Timestamp:

Aug 18, 2010, 12:15:25 PM (16 years ago)

Author:

rhenders

Message:

Can now specify to and from dates when getting list of batches; new method to set delete status for a batch

File:

• trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm (modified) (4 diffs)

trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm

@@ -16 +16 @@
 ###########################################################################
 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 +45 @@
 
     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 +141 @@
     SELECT COUNT(*) 
         FROM batches 
-        WHERE exp_id = $expId 
+        WHERE exp_id = $expId
+        AND created > '2010-08-12'
         AND processed = 1;
 SQL
@@ -186 +188 @@
 
     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
 }