IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 26709


Ignore:
Timestamp:
Jan 28, 2010, 2:43:00 PM (16 years ago)
Author:
watersc1
Message:

Added support to search for camera stage mask files.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/gpc1_find_images.pl

    r26670 r26709  
    194194
    195195    %mapping = ();
    196     if ((exists($opt{C})&&(exists($opt{S})))||
    197         (exists($opt{W})&&(exists($opt{O})))||
    198         exists($opt{I})) {
    199 
    200         $sth_mapping = "SELECT skycell_id,class_id from warpSkyCellMap WHERE warp_id = $warp_id";
    201         $mr = $db->selectall_arrayref( $sth_mapping );
    202         foreach $mrr (@{ $mr }) {
    203             my ($skycell,$class) = @{ $mrr };
    204             my $raw_class = $class;
    205             $raw_class =~ s/xy/ota/i;
    206             push @{ $mapping{$skycell} }, $class;
    207             push @{ $mapping{$skycell} }, $raw_class;
    208             push @{ $mapping{$class} }, $skycell;
    209             push @{ $mapping{$raw_class} }, $skycell;
     196    unless (exists($opt{Y})) {
     197        if ((exists($opt{C})&&(exists($opt{S})))||
     198            (exists($opt{W})&&(exists($opt{O})))||
     199            exists($opt{I})) {
     200            $sth_mapping = "SELECT skycell_id,class_id from warpSkyCellMap WHERE warp_id = $warp_id";
     201            $mr = $db->selectall_arrayref( $sth_mapping );
     202            foreach $mrr (@{ $mr }) {
     203                my ($skycell,$class) = @{ $mrr };
     204                my $raw_class = $class;
     205                $raw_class =~ s/xy/ota/i;
     206                push @{ $mapping{$skycell} }, $class;
     207                push @{ $mapping{$skycell} }, $raw_class;
     208                push @{ $mapping{$class} }, $skycell;
     209                push @{ $mapping{$raw_class} }, $skycell;
    210210#           print STDERR "$raw_class $class $skycell\n";
     211            }
    211212        }
    212213    }
     
    444445            return(1);
    445446        }
     447        elsif ($opt{M} && ($key =~ /mk.fits/)) {
     448            if (($opt{O} ne '')&&($key !~ /$opt{O}/)) {
     449                return(0); # Not the requested OTA
     450            }
     451            if (($opt{S} ne '')&& !(is_mapped($key,$opt{S}))) {
     452                return(0); # Not the remapped skycell requested
     453            }
     454            return(1);
     455        }           
     456
    446457    }
    447458    return(0);
Note: See TracChangeset for help on using the changeset viewer.