-%
-%
-% my $fh = $cgi->upload('batch_results');
-% my $filename = $cgi->param('batch_results');
-% $filename =~ /^(.*[\/\\])?([^\/\\]+)$/
-% or die "unparsable filename: $filename\n";
-% my $paybatch = $2;
-%
-% my $error = defined($fh)
-% ? FS::cust_pay_batch::import_results( {
-% 'filehandle' => $fh,
-% 'format' => $cgi->param('format'),
-% 'paybatch' => $paybatch,
-% } )
-% : 'No file';
-%
-% if ( $error ) {
-%