projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
092990e
)
ensure realtime_bop can properly use transactions for its state
author
Ivan Kohler
<ivan@freeside.biz>
Wed, 14 Jan 2015 11:10:06 +0000
(
03:10
-0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Wed, 14 Jan 2015 11:10:06 +0000
(
03:10
-0800)
FS/FS/cust_main/Billing_Realtime.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main/Billing_Realtime.pm
b/FS/FS/cust_main/Billing_Realtime.pm
index
6c75fe9
..
330a454
100644
(file)
--- a/
FS/FS/cust_main/Billing_Realtime.pm
+++ b/
FS/FS/cust_main/Billing_Realtime.pm
@@
-3,6
+3,7
@@
package FS::cust_main::Billing_Realtime;
use strict;
use vars qw( $conf $DEBUG $me );
use vars qw( $realtime_bop_decline_quiet ); #ugh
use strict;
use vars qw( $conf $DEBUG $me );
use vars qw( $realtime_bop_decline_quiet ); #ugh
+use Carp;
use Data::Dumper;
use Business::CreditCard 0.28;
use FS::UID qw( dbh );
use Data::Dumper;
use Business::CreditCard 0.28;
use FS::UID qw( dbh );
@@
-319,6
+320,10
@@
my %bop_method2payby = (
sub realtime_bop {
my $self = shift;
sub realtime_bop {
my $self = shift;
+ confess "Can't call realtime_bop within another transaction ".
+ '($FS::UID::AutoCommit is false)'
+ unless $FS::UID::AutoCommit;
+
local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
my %options = ();
local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
my %options = ();