summaryrefslogtreecommitdiff
path: root/httemplate/misc/process/cust_main-import_charges.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/misc/process/cust_main-import_charges.cgi')
-rw-r--r--httemplate/misc/process/cust_main-import_charges.cgi50
1 files changed, 27 insertions, 23 deletions
diff --git a/httemplate/misc/process/cust_main-import_charges.cgi b/httemplate/misc/process/cust_main-import_charges.cgi
index 404dfde2e..e0ede576b 100644
--- a/httemplate/misc/process/cust_main-import_charges.cgi
+++ b/httemplate/misc/process/cust_main-import_charges.cgi
@@ -1,26 +1,30 @@
-<%
+%
+%
+% 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 -->
- <%= include("/elements/header.html",'Import successful') %> <%
- }
-%>
+ <% include("/elements/header.html",'Import successful') %>
+%
+% }
+%
+