<% my $fh = $cgi->upload('batch_results'); my $filename = $cgi->param('batch_results'); $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die; my $paybatch = $1; my $error = defined($fh) ? FS::cust_pay_batch::import_results( { 'filehandle' => $fh, 'format' => $cgi->param('format'), 'paybatch' => $paybatch, } ) : 'No file'; if ( $error ) { %> <% eidiot($error); # $cgi->param('error', $error); # print $cgi->redirect( "${p}cust_main-import.cgi } else { %> <%= header('Batch results upload sucessful') %> <% } %>