blob: 5d01501778b81c597530f0e40ac8b0068f058b04 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
<%
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 ) {
%>
<!-- mason kludge -->
<%
eidiot($error);
# $cgi->param('error', $error);
# print $cgi->redirect( "${p}cust_main-import.cgi
} else {
%>
<!-- mason kludge -->
<%= header('Batch results upload sucessful') %> <%
}
%>
|