projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e6b0e92
)
prevent unsuspension errors from causing payment or credit transactions from finishing
author
ivan
<ivan>
Mon, 27 Dec 2004 10:19:26 +0000
(10:19 +0000)
committer
ivan
<ivan>
Mon, 27 Dec 2004 10:19:26 +0000
(10:19 +0000)
FS/FS/cust_credit.pm
patch
|
blob
|
history
FS/FS/cust_pay.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_credit.pm
b/FS/FS/cust_credit.pm
index
8ec255b
..
026b92e
100644
(file)
--- a/
FS/FS/cust_credit.pm
+++ b/
FS/FS/cust_credit.pm
@@
-106,6
+106,8
@@
sub insert {
return "error inserting $self: $error";
}
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;
#false laziness w/ cust_credit::insert
if ( $unsuspendauto && $old_balance && $cust_main->balance <= 0 ) {
my @errors = $cust_main->unsuspend;
diff --git
a/FS/FS/cust_pay.pm
b/FS/FS/cust_pay.pm
index
d901c78
..
1ceb599
100644
(file)
--- a/
FS/FS/cust_pay.pm
+++ b/
FS/FS/cust_pay.pm
@@
-150,6
+150,8
@@
sub insert {
}
}
}
}
+ $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;
#false laziness w/ cust_credit::insert
if ( $unsuspendauto && $old_balance && $cust_main->balance <= 0 ) {
my @errors = $cust_main->unsuspend;