Changeset 25323 for trunk

Timestamp:

Sep 10, 2009, 12:07:49 PM (17 years ago)

Author:

bills

Message:

for raw images set path_base to a reasonable value

File:

• trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.pm (modified) (2 diffs)

trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.pm

@@ -21 +21 @@
 
 use IPC::Cmd 0.36 qw( can_run run );
-
 use PS::IPP::Metadata::List qw( parse_md_list );
 use PS::IPP::Config qw( :standard );
@@ -234 +233 @@
             # just above probably solved the problem I was trying to solve with this test)
             next if !$base;
+        } else {
+            # raw images don't have path_base yet. Manufacture one
+            my $uri = $image->{uri};
+            my $path_base = $uri =~ s/\.fits//g;
+            $image->{$path_base} = $path_base;
         }
         if (!$camera) {