Changeset 29087

Timestamp:

Aug 31, 2010, 2:53:56 PM (16 years ago)

Author:

rhenders

Message:

Added function to get info for a single batch

File:

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

trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm

@@ -39 +39 @@
 #
 # Returns a info about one particular batch
+#
+###########################################################################
+sub getSingleBatch{
+    my ($self, $batch_id, $batches) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    SELECT created, exp_id, batch_id, survey_id, deleted, dvo_db
+        FROM batches 
+        WHERE batch_id = $batch_id 
+SQL
+  
+    $query->execute;
+    ${$batches} = $query->fetchall_arrayref();
+    my $count = scalar @{${$batches}};
+
+   printf( "* Found %d batch%s\n", $count, ($count==1) ? "" : "es");
+   return $count;
+}
+
+###########################################################################
+#
+# Returns a info about one particular batch on the datastore
 #
 ###########################################################################
@@ -149 +171 @@
 
     my $processed = $query->fetchrow_array();
-
-    if ($processed) {print "* Exposure ID '$expId' has already been processed\n";}
 
     return $processed;