diff options
| author | ivan <ivan> | 2011-10-26 22:52:21 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-10-26 22:52:21 +0000 |
| commit | f54d2b22d8dfe40b3f9fae6f7bb18ba81000c98e (patch) | |
| tree | 7d2be0a509ce6d27c81912f2eb0e6faa8331506d | |
| parent | 3dbd456dc4db97fb86d99f89e93ab86b4ab713cb (diff) | |
better debugging for #8815
| -rw-r--r-- | FS/FS/cust_main/Billing_Realtime.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/cust_main/Billing_Realtime.pm b/FS/FS/cust_main/Billing_Realtime.pm index da6b31b81..7c31204dc 100644 --- a/FS/FS/cust_main/Billing_Realtime.pm +++ b/FS/FS/cust_main/Billing_Realtime.pm @@ -22,6 +22,9 @@ $realtime_bop_decline_quiet = 0; $DEBUG = 0; $me = '[FS::cust_main::Billing_Realtime]'; +our $BOP_TESTING = 0; +our $BOP_TESTING_SUCCESS = 1; + install_callback FS::UID sub { $conf = new FS::Conf; #yes, need it for stuff below (prolly should be cached) @@ -602,9 +605,7 @@ sub realtime_bop { my $cpp_pending_err = $cust_pay_pending->replace; return $cpp_pending_err if $cpp_pending_err; - #config? - my $BOP_TESTING = 0; - my $BOP_TESTING_SUCCESS = 1; + warn Dumper($transaction) if $DEBUG > 2; unless ( $BOP_TESTING ) { $transaction->test_transaction(1) |