Changeset 29234

Timestamp:

Sep 24, 2010, 3:44:59 PM (16 years ago)

Author:

rhenders

Message:

Imroved method for retreiving stack cmf files

File:

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

trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm

@@ -15 +15 @@
 ###########################################################################
 sub getStackStageCmfs {
-    my ($self, $skyId) = @_;
+    my ($self, $skyId, $nebPath, $numInputs) = @_;
 
     my $query = $self->{_db}->prepare(<<SQL);
-    SELECT path_base
+    SELECT path_base, num_inputs
         FROM staticskyResult
-        WHERE sky_id =  $skyId
+        WHERE sky_id = $skyId
 SQL
 
     $query->execute;
-    return $query->fetchall_arrayref();
+    my $rows = $query->fetchall_arrayref();
+
+    if (@{$rows} < 1 || @{$rows} > 1) {return 0;}
+
+    my $row;
+    foreach $row ( @{$rows} ) {
+        (${$nebPath}, ${$numInputs}) = @{$row};
+    }
+
+    return 1;
 }