[freeside-commits] freeside/httemplate/misc/process cust_pay-import.cgi, NONE, 1.1.2.1

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/httemplate/misc/process
In directory wavetail:/tmp/cvs-serv15716/httemplate/misc/process

Added Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_pay-import.cgi 
Log Message:
simple payment CSV import

--- NEW FILE: cust_pay-import.cgi ---
<% $cgi->redirect(popurl(3). "search/cust_pay.cgi?magic=paybatch;paybatch=$paybatch") %> 
<%init>

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

# webbatch?  I suppose
my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);

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

errorpage($error)
  if ( $error );

</%init>