Index: trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm
===================================================================
--- trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm	(revision 30488)
+++ trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm	(revision 30521)
@@ -34,4 +34,22 @@
 
     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();
 }