IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 26382


Ignore:
Timestamp:
Dec 11, 2009, 12:23:20 PM (16 years ago)
Author:
watersc1
Message:

Update to fix burntool table finding.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/gpc1_find_images.pl

    r26098 r26382  
    33use DBI;
    44use Getopt::Std;
    5 getopts('hFARCPp:BLMDWIvx:n:c:w:s:O:S:N:',\%opt);
     5getopts('hFARCPp:BLMDWIYvx:n:c:w:s:O:S:N:',\%opt);
    66#getopt('xncwOS:hARCW',\%opt);
    77unless (exists($opt{O})) {
     
    7272                   ) or die "Unable to connect to database $DBI::errstr\n";
    7373
    74 $sth_base = "SELECT warp_id,warpRun.workdir,chipRun.chip_id,chipRun.workdir,rawExp.exp_name,rawExp.exp_id,rawExp.workdir,rawExp.dateobs,rawExp.pon_time,0,'nostack' from warpRun JOIN fakeRun USING(fake_id) JOIN camRun USING(cam_id) JOIN chipRun USING(chip_id) JOIN rawExp USING (exp_id)";
     74if ($opt{Y}) {
     75    $sth_base = "SELECT warp_id,warpRun.workdir,chipRun.chip_id,chipRun.workdir,rawExp.exp_name,rawExp.exp_id,rawExp.workdir,rawExp.dateobs,rawExp.pon_time,0,'nostack' from warpRun RIGHT OUTER JOIN fakeRun USING(fake_id) RIGHT OUTER JOIN camRun USING(cam_id) RIGHT OUTER JOIN chipRun USING(chip_id) RIGHT OUTER JOIN rawExp USING (exp_id)";
     76}
     77else {
     78    $sth_base = "SELECT warp_id,warpRun.workdir,chipRun.chip_id,chipRun.workdir,rawExp.exp_name,rawExp.exp_id,rawExp.workdir,rawExp.dateobs,rawExp.pon_time,0,'nostack' from warpRun  JOIN fakeRun USING(fake_id)  JOIN camRun USING(cam_id)  JOIN chipRun USING(chip_id)  JOIN rawExp USING (exp_id)";
     79}
    7580
    7681# What do we have?
     
    156161        (exists($opt{W})&&(exists($opt{O})))||
    157162        exists($opt{I})) {
     163
    158164        $sth_mapping = "SELECT skycell_id,class_id from warpSkyCellMap WHERE warp_id = $warp_id";
    159165        $mr = $db->selectall_arrayref( $sth_mapping );
     
    277283    elsif ($opt{B}) {
    278284        if ($key =~ /burn.tbl/) {
     285            if (($opt{O} ne '')&&($key !~ /$opt{O}/)) {
     286                return(0); # Not the requested OTA
     287            }
     288            if (($opt{S} ne '')&& !(is_mapped($key,$opt{S}))) {
     289                return(0); # Not the remapped skycell requested
     290            }
    279291            return(1);
    280292        }
Note: See TracChangeset for help on using the changeset viewer.