Index: trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm
===================================================================
--- trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm	(revision 29084)
+++ trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm	(revision 29087)
@@ -39,4 +39,26 @@
 #
 # 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,6 +171,4 @@
 
     my $processed = $query->fetchrow_array();
-
-    if ($processed) {print "* Exposure ID '$expId' has already been processed\n";}
 
     return $processed;