3 % my $fh = $cgi->upload('csvfile');
7 % my $error = defined($fh)
8 % ? FS::cust_main::batch_charge( {
10 % 'fields' => [qw( custnum amount pkg )],
20 %# $cgi->param('error', $error);
21 %# print $cgi->redirect( "${p}cust_main-import_charges.cgi
26 <% include("/elements/header.html",'Import successful') %>