From 6741fc63dd74238792dea70b620bac4e39073fe6 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 4 May 2012 13:46:16 -0400 Subject: [PATCH] This addresses the issue where issuing refunds results in a negative ballance and it is then impossible to close the transaction by creating new billings. https://bugs.launchpad.net/evergreen/+bug/758982 Signed-off-by: Bill Erickson Signed-off-by: Jason Stephenson --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm index 8a001b0ad5..865c9be242 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm @@ -691,6 +691,10 @@ sub billing_items_create { $e->create_money_billing($billing) or return $e->die_event; my $evt = OpenILS::Utils::Penalty->calculate_penalties($e, $xact->usr, $U->xact_org($xact->id,$e)); return $evt if $evt; + + $evt = _check_open_xact($e, $xact->id, $xact); + return $evt if $evt; + $e->commit; return $billing->id; -- 2.11.0