Changeset 30521

Timestamp:

Feb 8, 2011, 11:13:25 AM (15 years ago)

Author:

rhenders

Message:

Added a method to count the number of warps contributing to a given stack (identified by stack_id)

File:

• trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm (modified) (1 diff)

trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm

@@ -34 +34 @@
 
     return 1;
+}
+
+###########################################################################
+#
+# Returns a count of warps thyat contributed to the stack with this stack ID
+#
+###########################################################################
+sub countContributingWarpsToStack {
+        my ($self, $stackId) = @_;
+
+          my $query = $self->{_db}->prepare(<<SQL);
+          SELECT COUNT(DISTINCT warp_id) 
+              FROM stackInputSkyfile 
+              WHERE stack_id = $stackId
+SQL
+
+    $query->execute;
+    return scalar $query->fetchrow_array();
 }