Changeset 13785
- Timestamp:
- Jun 13, 2007, 8:15:51 AM (19 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/register_exp.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/register_exp.pl
r13748 r13785 50 50 # Define setup 51 51 use constant TYPE => "exp_type"; # Observation type keyword 52 use constant DETRENDS => [ "bias", "zero", "dark", "shutter", "flat", "fringe", "domeflat", "skyflat" ]; # Observation types to mark as detrend 52 53 # should we reverse this? add -detrend UNLESS type is OBJECT? (we can always queue to chip by hand...) 54 # use constant DETRENDS => [ "bias", "zero", "dark", "shutter", "flat", "fringe", "domeflat", "skyflat" ]; # Observation types to mark as detrend 55 # use constant DETREND_FLAG => "-detrend"; # Flag to use to mark detrend exposure 56 57 use constant SCIENCE => [ "object" ]; # Observation types to NOT mark as detrend 53 58 use constant DETREND_FLAG => "-detrend"; # Flag to use to mark detrend exposure 54 59 … … 198 203 199 204 # Add the detrend flag 200 foreach my $detrendType (@{DETRENDS()}) { 201 if (lc($values{TYPE()}) =~ /$detrendType/) { 202 $command .= ' ' . DETREND_FLAG; 205 foreach my $scienceType (@{SCIENCE()}) { 206 if (lc($values{TYPE()}) =~ /$scienceType/) { 203 207 last; 204 208 } 209 $command .= ' ' . DETREND_FLAG; 205 210 } 206 211
Note:
See TracChangeset
for help on using the changeset viewer.
