3 % my $fh = $cgi->upload('batch_results');
4 % my $filename = $cgi->param('batch_results');
5 % $filename =~ /^(.*[\/\\])?([^\/\\]+)$/
6 % or die "unparsable filename: $filename\n";
9 % my $error = defined($fh)
10 % ? FS::cust_pay_batch::import_results( {
11 % 'filehandle' => $fh,
12 % 'format' => $cgi->param('format'),
13 % 'paybatch' => $paybatch,
23 %# $cgi->param('error', $error);
24 %# print $cgi->redirect( "${p}cust_main-import.cgi
29 <% include("/elements/header.html",'Batch results upload successful') %>