sub realtime_collect {
my( $self, %options ) = @_;
- local($DEBUG) = $cust_main::DEBUG if $cust_main::DEBUG > $DEBUG;
+ local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
if ( $DEBUG ) {
warn "$me realtime_collect:\n";
sub realtime_bop {
my $self = shift;
- local($DEBUG) = $cust_main::DEBUG if $cust_main::DEBUG > $DEBUG;
+ local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
my %options = ();
if (ref($_[0]) eq 'HASH') {
sub _realtime_bop_result {
my( $self, $cust_pay_pending, $transaction, %options ) = @_;
- local($DEBUG) = $cust_main::DEBUG if $cust_main::DEBUG > $DEBUG;
+ local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
if ( $DEBUG ) {
warn "$me _realtime_bop_result: pending transaction ".
sub realtime_botpp_capture {
my( $self, $cust_pay_pending, %options ) = @_;
- local($DEBUG) = $cust_main::DEBUG if $cust_main::DEBUG > $DEBUG;
+ local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
if ( $DEBUG ) {
warn "$me realtime_botpp_capture: pending transaction $cust_pay_pending\n";
sub realtime_refund_bop {
my $self = shift;
- local($DEBUG) = $cust_main::DEBUG if $cust_main::DEBUG > $DEBUG;
+ local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
my %options = ();
if (ref($_[0]) eq 'HASH') {