Changeset 32437 for trunk/ippScripts/scripts/lap_science.pl

Timestamp:

Sep 23, 2011, 3:02:30 PM (15 years ago)

Author:

watersc1

Message:

Final v3.0 of LAP code.

File:

• trunk/ippScripts/scripts/lap_science.pl (modified) (2 diffs)

trunk/ippScripts/scripts/lap_science.pl

@@ -1223 +1223 @@
     if (defined($queue_list)) {
         my $successful = 1;
-        open(Q,$queue_list) || $successful = 0;
+        open(Q,$queue_list) or ($successful = 0);
         if ($successful == 1) {
             while(<Q>) {
@@ -1229 +1229 @@
                 my $cmd = $_;
                 my ($projection_cell,$seq_id,$filter,$label);
-                $projection_cell = $define_cmd;
+                $projection_cell = $cmd;
                 $projection_cell =~ s/.*?-projection_cell (skycell.\w+?) .*/$1/;
-                $seq_id = $define_cmd;
+                $seq_id = $cmd;
                 $seq_id =~ s/.*-seq_id (\d+?) .*/$1/;
-                $filter = $define_cmd;
+                $filter = $cmd;
                 $filter =~ s/.*-filter (\w\.00000) .*/$1/;
                 if ($filter =~ /\s+?/) {
                     $filter =~ s/.*-filter (\w\.00000)$/$1/;
                 }
-                $label = $define_cmd;
+                $label = $cmd;
                 $label =~ s/.*-label (.+?) .*/$1/;