Changeset 27032 for trunk/tools/make_burntool_pcontrol.pl

Timestamp:

Feb 22, 2010, 3:23:30 PM (16 years ago)

Author:

watersc1

Message:

This was missing STS exposures that did not have the expected obs_mode. I've added another comment based catch. :(

File:

• trunk/tools/make_burntool_pcontrol.pl (modified) (2 diffs)

trunk/tools/make_burntool_pcontrol.pl

@@ -144 +144 @@
         ($date,$time) = split / /, $dateobs;
         ($year,$month,$day) = split /-/, $date;
-        ($hour,$minute,$second) = split /:/, $time;
+        ($hour,$minute,$second) = split /:/, $time;   #/ I hope emacs fixes this bug soon. ;
         
         $dt = DateTime->new( year   => $year, month  => $month, day    => $day,
@@ -161 +161 @@
         if ((($science{$obs_mode} == 1)&&($comment !~ /Daytime/))||
             (($science{$obs_mode} == 0)&&(
-                                          ($comment =~ /MD/)||($comment =~ /ThreePi/)||
-                                          ($comment =~ /STS/)||($comment =~ /M31/)||
-                                          ($comment =~ /CAL/i)||($comment =~ /SS/)||($comment =~ /SVS/)||
-                                          ($comment =~ /Sweetspot/)||($comment =~ /virgo/i)||($comment =~ /kepler/)||
-                                          ($comment =~ /sdss/))))                                         
+                 ($comment =~ /MD/)||($comment =~ /ThreePi/)||
+                 ($comment =~ /STS/i)||($comment =~ /M31/)||
+                 ($comment =~ /CAL/i)||($comment =~ /SS/)||($comment =~ /SVS/)||
+                 ($comment =~ /Stellar Transit/)||
+                 ($comment =~ /Sweetspot/)||($comment =~ /virgo/i)||($comment =~ /kepler/)||
+                 ($comment =~ /sdss/))))                                          
         {
             if ($start_s[-1] == 0) {