Index: trunk/tools/make_burntool_pcontrol.pl
===================================================================
--- trunk/tools/make_burntool_pcontrol.pl	(revision 25444)
+++ trunk/tools/make_burntool_pcontrol.pl	(revision 25562)
@@ -8,5 +8,5 @@
 use constant DB_SOCKET => '/var/run/mysqld/mysqld.sock';
 
-getopts('hbQ:d:',\%opt);
+getopts('hbPQ:d:',\%opt);
 if (exists($opt{h})) {
     print STDERR "Usage: make_burntool_pcontrol.pl -b {-Q <SQL_WHERE> | -d <DATE> | DATE_MIN0 DATE_MAX0 DATE_MIN1 DATE_MAX1 [...]}\n";
@@ -16,4 +16,5 @@
     print STDERR "         -d DATE           Specify a single day to look for.\n";
     print STDERR "         -b                Only print burntool lines.\n";
+    print STDERR "         -P                PR images have bad obs_mode values. Work around that.\n";
     print STDERR "\n";
     print STDERR "         Scans the GPC1 database, and identifies \"science\" observations based on the obs_mode.\n";
@@ -37,5 +38,7 @@
 %science = ('MD' => 1, '3PI' => 1, 'STS' => 1, 'CAL' => 1, 'M31' => 1, 'SS' => 1,
 	    'ENGINEERING' => 0, 'NULL' => 0, 'Unknown' => 0, ' ' => 0);
-
+if (exists($opt{P})) {
+    $science{Unknown} = 1;
+}
 # Zero the arrays.
 @dates_min = ();