Changeset 32841
- Timestamp:
- Nov 30, 2011, 11:44:19 AM (15 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/register_exp.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/register_exp.pl
r32379 r32841 121 121 my ($data_group,$dist_group,$chip_workdir,$reduction); 122 122 ($label,$data_group,$dist_group,$end_stage, 123 $tess_id,$chip_workdir,$reduction) = advance_decisions(&value_for_flag($cmdflags,"-dateobs"), 123 $tess_id,$chip_workdir,$reduction) = advance_decisions(&value_for_flag($cmdflags,"-exp_name"), 124 &value_for_flag($cmdflags,"-dateobs"), 124 125 &value_for_flag($cmdflags,"-exp_type"), 125 126 &value_for_flag($cmdflags,"-obs_mode"), … … 170 171 ### Pau. 171 172 sub advance_decisions { 173 my $exp_name = shift; 172 174 my $dateobs = shift; 173 175 my $exptype = shift; … … 178 180 179 181 # The strings come pre-quoted. 182 $exp_name =~ s/\'//g; 180 183 $dateobs =~ s/\'//g; 181 184 $exptype =~ s/\'//g; … … 188 191 my $target; 189 192 193 if ($exp_name =~ /^c/) { 194 print "Skipping because this is a camera commanded exposure: $exp_name\n"; 195 return(undef,undef,undef,"reg",undef,undef,undef); 196 } 197 190 198 if ($exptype ne 'OBJECT') { 191 199 print "Skipping because exptype doesn't claim to be OBJECT: $exptype\n";
Note:
See TracChangeset
for help on using the changeset viewer.
