blob: cc5346606b312cfe02bafd36326cc03b422402ae (
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
|
<%
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 ) {
%>
<!-- mason kludge -->
<%
eidiot($error);
# $cgi->param('error', $error);
# print $cgi->redirect( "${p}cust_main-import.cgi
} else {
%>
<!-- mason kludge -->
<%= header('Batch results upload sucessful') %> <%
}
%>
|
