[freeside-commits] freeside/httemplate/misc/process payment.cgi, 1.9.2.1, 1.9.2.2

[Jeff Finucane,420,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	payment.cgi 
Log Message:
add to ACH batch feature from customer view page (backport)

Index: payment.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/process/payment.cgi,v
retrieving revision 1.9.2.1
retrieving revision 1.9.2.2
diff -u -d -r1.9.2.1 -r1.9.2.2
--- payment.cgi	6 Apr 2007 23:58:52 -0000	1.9.2.1
+++ payment.cgi	23 Apr 2007 03:42:41 -0000	1.9.2.2
@@ -89,19 +89,33 @@
 %  die "unknown payby $payby";
 %}
 %
-%my $error = $cust_main->realtime_bop( $FS::payby::payby2bop{$payby}, $amount,
-%  'quiet'    => 1,
-%  'manual'   => 1,
-%  'payinfo'  => $payinfo,
-%  'paydate'  => "$year-$month-01",
-%  'payname'  => $payname,
-%  'paybatch' => $paybatch,
-%  'paycvv'   => $paycvv,
-%  map { $_ => $cgi->param($_) } @{$payby2fields{$payby}}
-%);
-%eidiot($error) if $error;
+%my $error = '';
+%if ($cgi->param('batch')) {
+%  $error = $cust_main->batch_card(
+%                                   'payby'    => $payby,
+%                                   'amount'   => $amount,
+%                                   'payinfo'  => $payinfo,
+%                                   'paydate'  => "$year-$month-01",
+%                                   'payname'  => $payname,
+%                                   map { $_ => $cgi->param($_) } 
+%                                     @{$payby2fields{$payby}}
+%                                 );
+%  eidiot($error) if $error;
+%}else{
+%  $error = $cust_main->realtime_bop( $FS::payby::payby2bop{$payby}, $amount,
+%    'quiet'    => 1,
+%    'manual'   => 1,
+%    'payinfo'  => $payinfo,
+%    'paydate'  => "$year-$month-01",
+%    'payname'  => $payname,
+%    'paybatch' => $paybatch,
+%    'paycvv'   => $paycvv,
+%    map { $_ => $cgi->param($_) } @{$payby2fields{$payby}}
+%  );
+%  eidiot($error) if $error;
 %
-%$cust_main->apply_payments;
+%  $cust_main->apply_payments;
+%}
 %
 %if ( $cgi->param('save') ) {
 %  my $new = new FS::cust_main { $cust_main->hash };