freeside/FS/FS cust_pay.pm,1.35,1.36 cust_credit.pm,1.21,1.22

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv7289

Modified Files:
	cust_pay.pm cust_credit.pm 
Log Message:
prevent unsuspension errors from causing payment or credit transactions from finishing

Index: cust_pay.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- cust_pay.pm	7 Jul 2004 16:06:29 -0000	1.35
+++ cust_pay.pm	27 Dec 2004 10:19:25 -0000	1.36
@@ -150,6 +150,8 @@
     }
   }
 
+  $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;

Index: cust_credit.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_credit.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- cust_credit.pm	23 Apr 2004 12:19:40 -0000	1.21
+++ cust_credit.pm	27 Dec 2004 10:19:26 -0000	1.22
@@ -106,6 +106,8 @@
     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;