diff options
| author | jeff <jeff> | 2007-01-10 00:42:23 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-01-10 00:42:23 +0000 |
| commit | e8e43b0e59cf50e7a3c0789f589046459bc658c1 (patch) | |
| tree | cbfc81857e7f81645acb39f2a9a0c12de9c55687 /httemplate | |
| parent | a3e2c44624aa50e408046e77e6b1cd5d9c20b4c2 (diff) | |
ignore filenames and rely on selected batch number
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/misc/upload-batch.cgi | 6 | ||||
| -rwxr-xr-x | httemplate/search/cust_pay_batch.cgi | 1 |
2 files changed, 3 insertions, 4 deletions
diff --git a/httemplate/misc/upload-batch.cgi b/httemplate/misc/upload-batch.cgi index 742bbc0c6..5b4961be3 100644 --- a/httemplate/misc/upload-batch.cgi +++ b/httemplate/misc/upload-batch.cgi @@ -1,10 +1,8 @@ % % % my $fh = $cgi->upload('batch_results'); -% my $filename = $cgi->param('batch_results'); -% $filename =~ /^(.*[\/\\])?([^\/\\]+)$/ -% or die "unparsable filename: $filename\n"; -% my $paybatch = $2; +% $cgi->param('batchnum') =~ /^(\d+)$/; +% my $paybatch = $1; % % my $error = defined($fh) % ? FS::cust_pay_batch::import_results( { diff --git a/httemplate/search/cust_pay_batch.cgi b/httemplate/search/cust_pay_batch.cgi index b2354b24e..9b0aaeca9 100755 --- a/httemplate/search/cust_pay_batch.cgi +++ b/httemplate/search/cust_pay_batch.cgi @@ -90,6 +90,7 @@ % qq!<OPTION VALUE="BoM">Bank of Montreal ECA results</OPTION>!. % qq!</SELECT><BR>!; % } +% $html_init .= qq!<INPUT TYPE="hidden" NAME="batchnum" VALUE="$batchnum">!; % $html_init .= '<INPUT TYPE="submit" VALUE="Upload"></FORM><BR>'; % } % |