[open-ils-commits] r8537 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-01-30 12:13:42 -0500 (Wed, 30 Jan 2008)
New Revision: 8537

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
Log:
ensuring transactions are closed after a billing is applied against a negative balance transaction

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm	2008-01-30 17:00:26 UTC (rev 8536)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm	2008-01-30 17:13:42 UTC (rev 8537)
@@ -315,6 +315,11 @@
 	
 	$apputils->commit_db_session($session);
 
+    my $e = new_editor(xact=>1);
+    $evt = _check_open_xact($e, $transid);
+    return $evt if $evt;
+    $e->commit;
+
 	return $transid;
 }