3 my $fh = $cgi->upload('batch_results');
4 my $filename = $cgi->param('batch_results');
5 $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die;
8 my $error = defined($fh)
9 ? FS::cust_pay_batch::import_results( {
11 'format' => $cgi->param('format'),
12 'paybatch' => $paybatch,
21 # $cgi->param('error', $error);
22 # print $cgi->redirect( "${p}cust_main-import.cgi
26 <%= header('Batch results upload sucessful') %> <%