[freeside-commits] freeside/FS/FS cust_main.pm,1.323,1.324
Ivan,,,
ivan at wavetail.420.am
Thu Nov 29 17:16:48 PST 2007
Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv8440
Modified Files:
cust_main.pm
Log Message:
remove unnecessary redefinition of %method2payby, add a quick hack to fake B:OP success and failure for testing purposes
Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.323
retrieving revision 1.324
diff -u -d -r1.323 -r1.324
--- cust_main.pm 29 Nov 2007 02:54:50 -0000 1.323
+++ cust_main.pm 30 Nov 2007 01:16:45 -0000 1.324
@@ -3186,7 +3186,21 @@
my $cpp_pending_err = $cust_pay_pending->replace;
return $cpp_pending_err if $cpp_pending_err;
- $transaction->submit();
+ #config?
+ my $BOP_TESTING = 0;
+ my $BOP_TESTING_SUCCESS = 1;
+
+ unless ( $BOP_TESTING ) {
+ $transaction->submit();
+ } else {
+ if ( $BOP_TESTING_SUCCESS ) {
+ $transaction->is_success(1);
+ $transaction->authorization('fake auth');
+ } else {
+ $transaction->is_success(0);
+ $transaction->error_message('fake failure');
+ }
+ }
if ( $transaction->is_success() && $action2 ) {
@@ -3261,12 +3275,6 @@
if ( $transaction->is_success() ) {
- my %method2payby = (
- 'CC' => 'CARD',
- 'ECHECK' => 'CHEK',
- 'LEC' => 'LECB',
- );
-
my $paybatch = '';
if ( $payment_gateway ) { # agent override
$paybatch = $payment_gateway->gatewaynum. '-';
More information about the freeside-commits
mailing list