-<%
+%
+%
+% my $fh = $cgi->upload('csvfile');
+% #warn $cgi;
+% #warn $fh;
+%
+% my $error = defined($fh)
+% ? FS::cust_main::batch_charge( {
+% filehandle => $fh,
+% 'fields' => [qw( custnum amount pkg )],
+% } )
+% : 'No file';
+%
+% if ( $error ) {
+%
- my $fh = $cgi->upload('csvfile');
- #warn $cgi;
- #warn $fh;
-
- my $error = defined($fh)
- ? FS::cust_main::batch_charge( {
- filehandle => $fh,
- 'fields' => [qw( custnum amount pkg )],
- } )
- : 'No file';
-
- if ( $error ) {
- %>
<!-- mason kludge -->
- <%
- eidiot($error);
-# $cgi->param('error', $error);
-# print $cgi->redirect( "${p}cust_main-import_charges.cgi
- } else {
- %>
+%
+% eidiot($error);
+%# $cgi->param('error', $error);
+%# print $cgi->redirect( "${p}cust_main-import_charges.cgi
+% } else {
+%
+
<!-- mason kludge -->
- <%= header('Import sucessful') %> <%
- }
-%>
+ <% include("/elements/header.html",'Import successful') %>
+%
+% }
+%
+