diff options
author | Ivan Kohler <ivan@freeside.biz> | 2018-10-01 12:03:01 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2018-10-01 12:03:01 -0700 |
commit | d5988a9f7a3617de33da3058f2e9f1151b24420e (patch) | |
tree | 3ed8d80cd6a81f160c76c90fcf089e81fe7ffddf /FS/FS/UID.pm | |
parent | 1ab515df162a76347d8146cae4ff34656cc4bcd3 (diff) | |
parent | b6088672c87e2c5984183326b4c0e2d9bd6c34f6 (diff) |
Merge branch 'master' of git.freeside.biz:/home/git/freeside
Diffstat (limited to 'FS/FS/UID.pm')
-rw-r--r-- | FS/FS/UID.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/FS/FS/UID.pm b/FS/FS/UID.pm index ebda99e..d3ee8d8 100644 --- a/FS/FS/UID.pm +++ b/FS/FS/UID.pm @@ -5,7 +5,7 @@ use strict; use vars qw( @EXPORT_OK $DEBUG $me $cgi $freeside_uid $conf_dir $cache_dir $secrets $datasrc $db_user $db_pass $schema $dbh $driver_name - $AutoCommit %callback @callback $callback_hack + $AutoCommit $ForceObeyAutoCommit %callback @callback $callback_hack ); use subs qw( getsecrets ); use Carp qw( carp croak cluck confess ); @@ -26,7 +26,17 @@ $freeside_uid = scalar(getpwnam('freeside')); $conf_dir = "%%%FREESIDE_CONF%%%"; $cache_dir = "%%%FREESIDE_CACHE%%%"; +# Code wanting to issue a COMMIT statement to the database is expected to +# obey the convention of checking this flag first. Setting $AutoCommit = 0 +# should (usually) suppress COMMIT statements. $AutoCommit = 1; #ours, not DBI + +# Not all methods obey $AutoCommit, by design choice. Setting +# $ForceObeyAutoCommit = 1 will override that design choice for: +# &FS::cust_main::Billing::collect +# &FS::cust_main::Billing::do_cust_event +$ForceObeyAutoCommit = 0; + $callback_hack = 0; =head1 NAME |