ensuring transactions are closed after a billing is applied against a negative balanc...

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2_1@8538 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
index 4956fe0..11d9b10 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
@@ -315,6 +315,11 @@ sub create_grocery_bill {
        
        $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;
 }