Changeset 26709
- Timestamp:
- Jan 28, 2010, 2:43:00 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/gpc1_find_images.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/gpc1_find_images.pl
r26670 r26709 194 194 195 195 %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; 210 210 # print STDERR "$raw_class $class $skycell\n"; 211 } 211 212 } 212 213 } … … 444 445 return(1); 445 446 } 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 446 457 } 447 458 return(0);
Note:
See TracChangeset
for help on using the changeset viewer.
