From: ivan <ivan>
Date: Sat, 9 Apr 2011 00:43:20 +0000 (+0000)
Subject: should fix qis's intermittent backtraces when using an (ancient) counter-based cust_p... 
X-Git-Tag: freeside_2_3_0~428
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=d821cd02b1a912662bd714d42164ecc42b69e506

should fix qis's intermittent backtraces when using an (ancient) counter-based cust_pay.paynum, RT#12317
---

diff --git a/FS/FS/cust_main/Billing_Realtime.pm b/FS/FS/cust_main/Billing_Realtime.pm
index 55517ad71..0ecf5498f 100644
--- a/FS/FS/cust_main/Billing_Realtime.pm
+++ b/FS/FS/cust_main/Billing_Realtime.pm
@@ -856,6 +856,7 @@ sub _realtime_bop_result {
       if ( $error2 ) {
         # gah.  but at least we have a record of the state we had to abort in
         # from cust_pay_pending now.
+        $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
         my $e = "WARNING: $options{method} captured but payment not recorded -".
                 " error inserting payment (". $payment_gateway->gateway_module.
                 "): $error2".