Index: trunk/pstamp/scripts/pstamp_request_file
===================================================================
--- trunk/pstamp/scripts/pstamp_request_file	(revision 35439)
+++ trunk/pstamp/scripts/pstamp_request_file	(revision 35440)
@@ -18,4 +18,5 @@
      $output,			# Name of output table
      $req_name, 
+     $email, 
      $help
      );
@@ -25,5 +26,6 @@
 	   'output|o=s'   => \$output,
 	   'req_name|r=s' => \$req_name,
-           'help|h'         => \$help,
+	   'email=s'      => \$email,
+           'help|h'       => \$help,
 ) or pod2usage( 2 );
 
@@ -66,4 +68,6 @@
 ];
 
+my $email_column_num = 3;
+
 # Specification of columns to write
 my $columns = [ 
@@ -165,4 +169,8 @@
     $req_name = $header->[0]->{value};
 }
+if ($email) {
+    $header->[$email_column_num]->{value} = $email;
+}
+
 
 die "no request name defined" unless defined $req_name;
@@ -302,5 +310,5 @@
 
             $$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);