%
%
% 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( {