Changeset 30579 for branches/eam_branches/ipp-20101205/ippToPsps

Timestamp:

Feb 11, 2011, 2:49:34 PM (16 years ago)

Author:

eugene

Message:

merge changes from trunk

Location:

branches/eam_branches/ipp-20101205/ippToPsps/perl

Files:

• ippToPsps/Gpc1Db.pm (modified) (1 diff)
• utest (copied) (copied from trunk/ippToPsps/perl/utest )
• utest/00230033.FITS.CORRECT (copied) (copied from trunk/ippToPsps/perl/utest/00230033.FITS.CORRECT )
• utest/ippToPsps_inputFileList (copied) (copied from trunk/ippToPsps/perl/utest/ippToPsps_inputFileList )
• utest/results.correct (copied) (copied from trunk/ippToPsps/perl/utest/results.correct )
• utest/run.sh (copied) (copied from trunk/ippToPsps/perl/utest/run.sh )

branches/eam_branches/ipp-20101205/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();
 }