Changeset 30295

Timestamp:

Jan 19, 2011, 9:44:20 AM (15 years ago)

Author:

rhenders

Message:

added method to return whetehr a batch is currently MergeWorthy

File:

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

trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm

@@ -252 +252 @@
 #######################################################################################
 #
+# Checks whether this exposure is 'MergeWorthy'
+#
+########################################################################################
+sub isMergeWorthy {
+        my ($self, $expId) = @_;
+
+        my $query = $self->{_db}->prepare(<<SQL);
+        SELECT COUNT(*) 
+            FROM batches 
+            WHERE exp_id = $expId
+            AND merge_worthy
+SQL
+
+    $query->execute;
+
+    return scalar $query->fetchrow_array();
+}
+
+
+#######################################################################################
+#
 # Checks whether this exposure has a min object ID under old PSPS hard limit of 72010000000000001
 #
@@ -262 +283 @@
         FROM batches 
         WHERE exp_id = $expId
+        AND min_obj_id > 0
         AND min_obj_id < 72010000000000001
 SQL