Changeset 28031 for branches/czw_branch/20100427/PS-IPP-PStamp

Timestamp:

May 19, 2010, 2:11:08 PM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/czw_branch/20100427

Files:

• . (modified) (1 prop)
• PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.pm (modified) (7 diffs)

branches/czw_branch/20100427/PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.pm

@@ -632 +632 @@
     if (($img_type eq "raw") or ($img_type eq "chip")) {
 
-        my $runs = lookup_runs_by_cam_id_and_coords($ipprc, $imagedb, $img_type,
+        my $chips = lookup_by_cam_id_and_coords($ipprc, $imagedb, $img_type,
             $ra, $dec, $need_magic, $dateobs_begin, $dateobs_end, $filter, $data_group, $verbose);
 
-        # lookup is going to filter these we don't need to do it here
-#        $runs = filterRuns($img_type, $need_magic, $runs, $verbose);
-        foreach my $run (@$runs) {
-            next if $component and ($run->{component} ne $component);
-            my $these_results = lookup($ipprc, $rowList, $imagedb, "byid", $img_type, $run->{id},
-                $tess_id, $run->{component}, $need_magic, 
-                $dateobs_begin, $dateobs_end, $filter, $data_group, $option_mask, $verbose);
-
-            next if !$these_results;
-            push @$results, @$these_results;
+        if (!$chips or scalar @$chips == 0) {
+            setErrorCodes($rowList, $PSTAMP_NO_IMAGE_MATCH);
+        } else {
+            foreach my $chip (@$chips) {
+                next if $component and ($chip->{component} ne $component);
+                my $these_results = lookup($ipprc, $rowList, $imagedb, "byid", $img_type, $chip->{id},
+                    $tess_id, $chip->{component}, $need_magic, 
+                    $dateobs_begin, $dateobs_end, $filter, $data_group, $option_mask, $verbose);
+
+                next if !$these_results;
+                push @$results, @$these_results;
+            }
         }
         
     } else {
-        # this should be checked elsewhere
+        # this should have been checked elsewhere
         die "unexpected image type $img_type" if ($img_type ne "warp") 
                                               and ($img_type ne "stack") and ($img_type ne "diff");
@@ -654 +656 @@
         my $skycells = lookup_skycell_by_coords($ipprc, $tess_id, $component, $ra, $dec, $verbose);
 
-        foreach my $skycell (@$skycells) {
-            my $these_results = lookup($ipprc, $rowList, $imagedb, "byskycell", $img_type, undef,
-                $skycell->{tess_id}, $skycell->{component}, $need_magic, 
-                $dateobs_begin, $dateobs_end, $filter, $data_group, $option_mask, $verbose);
-
-            next if !$these_results;
-            push @$results, @$these_results;
+        if (!$skycells or scalar @$skycells == 0) {
+            setErrorCodes($rowList, $PSTAMP_NO_IMAGE_MATCH);
+        } else {
+            foreach my $skycell (@$skycells) {
+                my $these_results = lookup($ipprc, $rowList, $imagedb, "byskycell", $img_type, undef,
+                    $skycell->{tess_id}, $skycell->{component}, $need_magic, 
+                    $dateobs_begin, $dateobs_end, $filter, $data_group, $option_mask, $verbose);
+
+                next if !$these_results;
+                push @$results, @$these_results;
+            }
         }
     }
@@ -667 +673 @@
 }
 
-# lookup_runs_by_cam_id_and_coords
-# given an ra, dec, and optionally other paramters, find camera runs for exposures
+# lookup__by_cam_id_and_coords
+# given an ra, dec, and optionally other parameters, find camera runs for exposures
 # that are within some distance of the coordinates
-sub lookup_runs_by_cam_id_and_coords {
+
+sub lookup_by_cam_id_and_coords {
     my $ipprc      = shift;
     my $imagedb   = shift;
@@ -686 +693 @@
 
     {
+        my $search_radius = 1.6; # XXX: this should be camera specific
+
         my $command = "$camtool -dbname $imagedb -processedexp -pstamp_order";
-           $command .= " -ra $ra -decl $dec -radius 1.6";
+           $command .= " -ra $ra -decl $dec -radius $search_radius";
            $command .= " -dateobs_begin $dateobs_begin" if $dateobs_begin;
            $command .= " -dateobs_end   $dateobs_end"   if $dateobs_end  ;
@@ -693 +702 @@
            # NOTE: we are applying the data_group to the camera run.
            # If we're looking for chip stage images there is no guarentee that 
-           # chipRun.data_group = camRun.data_group. In practice this is almost
+           # chipRun.data_group eq camRun.data_group. In practice this is almost
            # always the case. If this turns out to be a problem we can defer
            # the data_group test to when we look up the chipProcessedImfiles
@@ -705 +714 @@
         return undef;
     }
-    my $runs;
+    my $components;
     my $last_exp_id = 0;
     foreach my $camRun (@$camruns) {
@@ -774 +783 @@
 
         # build the hash to return
-        my $run = {
+        # XXX: very few of the entries in this hash are currently used.
+        # Used are: id, component
+        # I had plans to use it for the camRun lookup optimization, but the cache solves the
+        # problem
+        my $comp = {
             exp_id    => $camRun->{exp_id},
             exp_name  => $camRun->{exp_name},
             chip_id   => $camRun->{chip_id},
             cam_id    => $camRun->{cam_id},
-            astrom    => $astrom_resolved,  # XXX: is astrom used?
             class_id  => $class_id,
             component => $class_id
         };
         if ($img_type eq "chip") {
-            $run->{id} = $camRun->{chip_id};
-            $run->{state} = $camRun->{chip_state};
-            $run->{magicked} = $camRun->{chip_magicked};
-        } else {
-            $run->{id} = $camRun->{exp_id};
-            $run->{state} = 'full';
-            $run->{magicked} = $camRun->{raw_magicked};
-        }
-        push @$runs, $run;
-    }
-
-    return $runs;
+            $comp->{id} = $camRun->{chip_id};
+            $comp->{state} = $camRun->{chip_state};
+            $comp->{magicked} = $camRun->{chip_magicked};
+        } else {
+            $comp->{id} = $camRun->{exp_id};
+            $comp->{state} = 'full';
+            $comp->{magicked} = $camRun->{raw_magicked};
+        }
+        push @$components, $comp;
+    }
+
+    return $components;
 }