httemplate/misc/process/cust_main-import_charges.cgi


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('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 {
%    

    <!-- mason kludge -->
    <% include("/elements/header.html",'Import successful') %> 
%
%  }
%