Changeset 30587 for branches/czw_branch/20101203/ippToPsps

Timestamp:

Feb 11, 2011, 4:42:29 PM (15 years ago)

Author:

watersc1

Message:

Caught up with the trunk. Now to look for bugs.

Location:

branches/czw_branch/20101203

Files:

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

branches/czw_branch/20101203/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();
 }