httemplate/misc/upload-batch.cgi

   1 %  if ( $error ) {
   2
   3     <!-- mason kludge -->
   4
   5 %    eidiot($error);
   6 %#    $cgi->param('error', $error);
   7 %#    print $cgi->redirect( "${p}cust_main-import.cgi
   8 %  } else {
   9
  10     <% include("/elements/header.html",'Batch results upload successful') %>
  11
  12 %  }
  13 <%init>
  14
  15 my $error;
  16
  17 my $fh = $cgi->upload('batch_results');
  18 $error = 'No file uploaded' unless defined($fh);
  19
  20 unless ( $error ) {
  21
  22   $cgi->param('batchnum') =~ /^(\d+)$/;
  23   my $batchnum = $1;
  24
  25   my $pay_batch = qsearchs( 'pay_batch', { 'batchnum' => $batchnum } );
  26   if ( ! $pay_batch ) {
  27     $error = "batchnum $batchnum not found";
  28   } elsif ( $pay_batch->status ne 'I' ) {
  29     $error = "batch $batchnum is not in transit";
  30   } else {
  31     $error = $pay_batch->import_results(
  32                                          'filehandle' => $fh,
  33                                          'format'     => $cgi->param('format'),
  34                                        );
  35   }
  36
  37 }
  38
  39 </%init>