my $fh = $cgi->upload('batch_results');
my $filename = $cgi->param('batch_results');
- $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die;
- my $paybatch = $1;
+ $filename =~ /^(.*[\/\\])?([^\/\\]+)$/
+ or die "unparsable filename: $filename\n";
+ my $paybatch = $2;
my $error = defined($fh)
? FS::cust_pay_batch::import_results( {
} else {
%>
<!-- mason kludge -->
- <%= header('Batch results upload sucessful') %> <%
+ <%= include("/elements/header.html",'Batch results upload sucessful') %> <%
}
%>