Changeset 35545 for branches/eam_branches/ipp-20130419/pstamp/scripts/pstamp_request_file

Timestamp:

May 9, 2013, 11:25:56 AM (13 years ago)

Author:

eugene

Message:

merge changes from trunk

Location:

branches/eam_branches/ipp-20130419/pstamp/scripts

Files:

• . (modified) (1 prop)
• pstamp_request_file (modified) (5 diffs)

branches/eam_branches/ipp-20130419/pstamp/scripts/pstamp_request_file

@@ -18 +18 @@
      $output,                   # Name of output table
      $req_name, 
+     $email, 
      $help
      );
@@ -25 +26 @@
            'output|o=s'   => \$output,
            'req_name|r=s' => \$req_name,
-           'help|h'         => \$help,
+           'email=s'      => \$email,
+           'help|h'       => \$help,
 ) or pod2usage( 2 );
 
@@ -66 +68 @@
 ];
 
+my $email_column_num = 3;
+
 # Specification of columns to write
 my $columns = [ 
@@ -165 +169 @@
     $req_name = $header->[0]->{value};
 }
+if ($email) {
+    $header->[$email_column_num]->{value} = $email;
+}
+
 
 die "no request name defined" unless defined $req_name;
@@ -302 +310 @@
 
             $$r_extver = $vals[1];
-            if ($extver > 1) {
+            if ($$r_extver > 1) {
                 die "number of header columns in input $nvals does not equal expected number of header words $nhead"
                     if (@vals != @$header);