httemplate/misc/process/transaction810-import.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

%
%
%  my $fh = $cgi->upload('csvfile');
%  #warn $cgi;
%  #warn $fh;
%
%  my $error = FS::transaction810::testing( {
%        filehandle => $fh,
%        'format'   => scalar($cgi->param('format')),
%      } );
%
%  if ( $error ) {
%    

<b><% $error %></b> 
%
%  } else {
%    
<b>Not Successful!</b>
%
%  }
%