Changeset 33097

Timestamp:

Jan 11, 2012, 4:04:25 PM (15 years ago)

Author:

bills

Message:

fix get image jobs for raw stage

File:

• tags/ipp-20111222/pstamp/scripts/pstamp_get_image_job.pl (modified) (1 diff)

tags/ipp-20111222/pstamp/scripts/pstamp_get_image_job.pl

@@ -75 +75 @@
 my $stage_id = $comp->{stage_id};
 my $component = $comp->{component};
-my $path_base = $comp->{path_base};
 my $camera = $comp->{camera};
 my $magicked = $comp->{magicked};
+my $path_base = $comp->{path_base};
+if (!$path_base and $stage eq 'raw') {
+    my $uri = $comp->{uri};
+    $uri =~ s/\.fits//g;
+    $path_base = $uri;
+}
 
 if ($verbose) {
     print STDERR "\nstage is $stage\n";
     print STDERR "stage_id is $stage_id\n";
-    print STDERR "path_base is $path_base\n";
     print STDERR "path_base is $path_base\n";
     print STDERR "CAMERA is $camera\n";