httemplate/misc/process/cdr-import.html

   1 <%
   2
   3   my $fh = $cgi->upload('csvfile');
   4
   5   my $error = defined($fh)
   6     ? FS::cdr::batch_import( {
   7         'filehandle' => $fh,
   8         'format'     => $cgi->param('format'),
   9       } )
  10     : 'No file';
  11
  12   if ( $error ) {
  13     %>
  14     <!-- mason kludge -->
  15     <%
  16     eidiot($error);
  17 #    $cgi->param('error', $error);
  18 #    print $cgi->redirect( "${p}cust_main-import.cgi
  19   } else {
  20     %>
  21     <!-- mason kludge -->
  22     <%= include("/elements/header.html",'Import successful') %>
  23     <!-- XXX redirect to batch search like the payment entry... -->
  24     <%= include("/elements/footer.html",'Import successful') %> <%
  25   }
  26 %>