[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