% if ( $error ) {
%   errorpage($error);
%  } else {
     <% include('/elements/header.html','Import successful') %> 
     <% include('/elements/footer.html') %> 
%  }
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Import');

my $fh = $cgi->upload('csvfile');
#warn $cgi;
#warn $fh;

my $error = defined($fh)
  ? FS::cust_main::Import_Charges::batch_charge( {
      filehandle => $fh,
      'agentnum' => scalar($cgi->param('agentnum')),
      'format'   => scalar($cgi->param('format')),
    } )
  : 'No file';

</%init>