[open-ils-commits] r8535 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-01-30 11:19:11 -0500 (Wed, 30 Jan 2008)
New Revision: 8535

Modified:
   branches/rel_1_2/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: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm	2008-01-30 16:02:39 UTC (rev 8534)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm	2008-01-30 16:19:11 UTC (rev 8535)
@@ -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;
 }