Changeset 27784 for branches/czw_branch/20100427/pstamp/scripts/detect_query_read

Timestamp:

Apr 27, 2010, 11:50:36 AM (16 years ago)

Author:

watersc1

Message:

Moving code to a branch so I can work on the detectability server.

Location:

branches/czw_branch/20100427

Files:

• . (copied) (copied from trunk )
• pstamp/scripts/detect_query_read (modified) (2 diffs)

branches/czw_branch/20100427/pstamp/scripts/detect_query_read

@@ -78 +78 @@
                         comment => 'site identifier (MPC observatory code)',
                         value => undef
-              }
+                      },
+        'STAGE'    => { 
+                        name => 'STAGE',
+                        writetype => TSTRING,
+                        comment => 'processing stage to examine',
+                        value => undef
+                      }
 };
 
 # key_array insures that the order that the keywords is printed out is
 # the same as the ICD
-my @key_array = qw( QUERY_ID FPA_ID MJD_OBS FILTER OBSCODE );
+my @key_array = qw( QUERY_ID FPA_ID MJD_OBS FILTER OBSCODE STAGE);
 
 # Specification of columns
@@ -144 +150 @@
         my $name = $header->{$key}->{name};
         my $value = $inHeader->{$name};
+        if (($key eq 'STAGE')&& !(defined($value))) {
+            $value = 'DIFF';
+        }
         # get rid of quotes and whitespace
         $value =~ s/\'//g;