Changeset 37997 for trunk/pstamp/scripts/pstampparse.pl

Timestamp:

Mar 24, 2015, 9:32:28 AM (11 years ago)

Author:

bills

Message:

remove an obsolete subroutine

File:

• trunk/pstamp/scripts/pstampparse.pl (modified) (1 diff)

trunk/pstamp/scripts/pstampparse.pl

@@ -542 +542 @@
         $error_code =  $PSTAMP_NO_IMAGE_MATCH if !$error_code;
         insertFakeJobForRow($row, ++$row->{job_num}, $error_code);
-    }
-
-    return $num_jobs;
-}
-
-sub processRows {
-    my $action = shift;
-    my $rowList = shift;
-    my $num_jobs = 0;
-
-    if ($action eq 'LIST') {
-        # LIST is not allowed by caller. Can't get here.
-        return list_targets($rowList);
-    }
-
-    # all rows in the list are compatible
-    my $row = $rowList->[0];
-
-    my $project  = $row->{PROJECT};
-
-    # note: resolve_project avoids running pstamptool every time by remembering the
-    # last project resolved
-    my $proj_hash = resolve_project($ipprc, $project, $dbname, $dbserver);
-    if (!$proj_hash) {
-        foreach my $r (@$rowList) {
-            insertFakeJobForRow($r, 1, $PSTAMP_UNKNOWN_PRODUCT);
-            $num_jobs++;
-        }
-        return $num_jobs;
-    }
-    my $req_type  = $row->{REQ_TYPE};
-    my $stage     = $row->{IMG_TYPE};
-    my $id        = $row->{ID};
-    my $component = $row->{COMPONENT};
-    my $tess_id   = $row->{TESS_ID};
-
-    my $filter    = $row->{REQFILT};
-    my $mjd_min   = $row->{MJD_MIN};
-    my $mjd_max   = $row->{MJD_MAX};
-    my $data_group = $row->{DATA_GROUP};
-
-    my $rownum     = $row->{ROWNUM};
-    my $job_type   = $row->{JOB_TYPE};
-    my $option_mask= $row->{OPTION_MASK};
-    
-    my $image_db   = $proj_hash->{dbname};
-    my $camera     = $proj_hash->{camera};
-    my $need_magic = $proj_hash->{need_magic};
-    # Since user can get unmagicked data "by coordinate" requests can go back in time
-    # to dredge unusable data from the "dark days"...
-    if ($req_type eq 'bycoord' and $mjd_min eq 0) {
-            # ... so unless the user sets mjd_min clamp it to 2009-04-01
-            # XXX: This value should live in the pstampProject table not be hardcoded here
-            $mjd_min = 54922;
-    }
-
-    $need_magic = 0 if $stage eq 'stack';
-
-    # XXX: magic is dead
-    $need_magic = 0;
-
-    my $numRows = scalar @$rowList;
-
-    if (($req_type eq 'byskycell') or ($req_type eq 'bycoord')) {
-        # avoid error from print below if $id isn't needed
-        $id = "" if !$id;
-    }
-    print "Collected $numRows rows beginning with row $rownum. $req_type $stage $id $tess_id $component\n";
-    
-    # Call PS::IPP::PStamp::Job locate_images subroutine to get the images for this
-    # request specification. An array reference is returned.
-    my $start_locate = gettimeofday();
-
-    # XXX: perhaps we should get rid of most of this argument list.
-    # Now that we are passing down compatible rows all of the
-    # information required is contained there
-
-    my $imageList = locate_images($ipprc, $image_db, $rowList, $req_type, $stage, $id, $tess_id, $component,
-                $option_mask, $need_magic, $mjd_min, $mjd_max, $filter, $data_group, $verbose);
-
-    my $dtime_locate = gettimeofday() - $start_locate;
-    print "Time to locate_images for row $rownum $dtime_locate\n";
-
-    # handle this 
-    # XXX: what did I mean by that comment?
-    $row->{need_magic} = $need_magic;
-
-    $num_jobs += queueJobs($action, $rowList, $imageList);
-
-    # if a row slipped through with no jobs add a faulted one
-    foreach my $row (@$rowList) {
-        if ($row->{job_num} == 0) {
-            print "row $row->{ROWNUM} produced no jobs\n";
-            print STDERR "row $row->{ROWNUM} produced no jobs\n";
-            my $error_code = $row->{error_code};
-            $error_code =  $PSTAMP_NO_IMAGE_MATCH if !$error_code;
-            insertFakeJobForRow($row, ++$row->{job_num}, $error_code);
-        }
     }