[freeside-commits] freeside/httemplate/misc/process payment.cgi, 1.3, 1.4

Jeff Finucane,420,, jeff at wavetail.420.am
Sat Aug 26 16:15:16 PDT 2006


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

Modified Files:
	payment.cgi 
Log Message:
batch refactor continued

Index: payment.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/process/payment.cgi,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- payment.cgi	23 Aug 2006 22:25:38 -0000	1.3
+++ payment.cgi	26 Aug 2006 23:15:14 -0000	1.4
@@ -1,5 +1,4 @@
 %
-%
 %#some false laziness w/MyAccount::process_payment
 %
 %$cgi->param('custnum') =~ /^(\d+)$/
@@ -25,10 +24,6 @@
 %$cgi->param('payby') =~ /^(CARD|CHEK)$/
 %  or die "illegal payby ". $cgi->param('payby');
 %my $payby = $1;
-%my %payby2bop = (
-%  'CARD' => 'CC',
-%  'CHEK' => 'ECHECK',
-%);
 %my %payby2fields = (
 %  'CARD' => [ qw( address1 address2 city state zip ) ],
 %  'CHEK' => [ qw( ss ) ],
@@ -87,7 +82,7 @@
 %  die "unknown payby $payby";
 %}
 %
-%my $error = $cust_main->realtime_bop( $payby2bop{$payby}, $amount,
+%my $error = $cust_main->realtime_bop( $FS::payby::payby2bop->{$payby}, $amount,
 %  'quiet'    => 1,
 %  'payinfo'  => $payinfo,
 %  'paydate'  => "$year-$month-01",



More information about the freeside-commits mailing list