[freeside-commits] freeside/httemplate/misc/process payment.cgi, 1.14, 1.15

Ivan,,, ivan at wavetail.420.am
Wed Nov 28 18:54:53 PST 2007


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

Modified Files:
	payment.cgi 
Log Message:
even more reliable multiple-payment/double-click/concurrent-payment-form protection

Index: payment.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/process/payment.cgi,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- payment.cgi	27 Oct 2007 04:46:05 -0000	1.14
+++ payment.cgi	29 Nov 2007 02:54:51 -0000	1.15
@@ -56,6 +56,10 @@
   or errorpage(gettext('illegal_text'). " payunique: ". $cgi->param('payunique'));
 my $payunique = $1;
 
+$cgi->param('balance') =~ /^\s*(\-?\s*\d*(\.\d\d)?)\s*$/
+  or errorpage("illegal balance");
+my $balance = $1;
+
 my $payinfo;
 my $paycvv = '';
 if ( $payby eq 'CHEK' ) {
@@ -125,6 +129,7 @@
   $error = $cust_main->realtime_bop( $FS::payby::payby2bop{$payby}, $amount,
     'quiet'      => 1,
     'manual'     => 1,
+    'balance'    => $balance,
     'payinfo'    => $payinfo,
     'paydate'    => "$year-$month-01",
     'payname'    => $payname,



More information about the freeside-commits mailing list