httemplate/misc/process/cust_main-import_charges.cgi

   1 %
   2 %
   3 %  my $fh = $cgi->upload('csvfile');
   4 %  #warn $cgi;
   5 %  #warn $fh;
   6 %
   7 %  my $error = defined($fh)
   8 %    ? FS::cust_main::batch_charge( {
   9 %        filehandle => $fh,
  10 %        'fields'    => [qw( custnum amount pkg )],
  11 %      } )
  12 %    : 'No file';
  13 %
  14 %  if ( $error ) {
  15 %
  16
  17     <!-- mason kludge -->
  18 %
  19 %    eidiot($error);
  20 %#    $cgi->param('error', $error);
  21 %#    print $cgi->redirect( "${p}cust_main-import_charges.cgi
  22 %  } else {
  23 %
  24
  25     <!-- mason kludge -->
  26     <% include("/elements/header.html",'Import successful') %>
  27 %
  28 %  }
  29 %
  30