diff options
author | ivan <ivan> | 2004-12-27 10:19:26 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-12-27 10:19:26 +0000 |
commit | 4b97aeb9934086633c510f3a98afc8d9288c8e4e (patch) | |
tree | 5f9eaa0e5e9a0619334ed592f34932dd5cb0e77e /FS/FS/cust_credit.pm | |
parent | e6b0e9237c4bbc31c820b06ece0029f75166506d (diff) |
prevent unsuspension errors from causing payment or credit transactions from finishing
Diffstat (limited to 'FS/FS/cust_credit.pm')
-rw-r--r-- | FS/FS/cust_credit.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm index 8ec255b..026b92e 100644 --- a/FS/FS/cust_credit.pm +++ b/FS/FS/cust_credit.pm @@ -106,6 +106,8 @@ sub insert { return "error inserting $self: $error"; } + $dbh->commit or die $dbh->errstr if $oldAutoCommit; + #false laziness w/ cust_credit::insert if ( $unsuspendauto && $old_balance && $cust_main->balance <= 0 ) { my @errors = $cust_main->unsuspend; |