From: Jason Etheridge <jason@esilibrary.com>
Date: Fri, 19 Aug 2011 22:22:28 +0000 (-0400)
Subject: Fix penalty generation during billing creation
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=490ce11f23f8d5d3d041752fdd6e431405e0cf7a;p=working%2FEvergreen.git

Fix penalty generation during billing creation

by passing the editor object referencing the database transaction to xact_org

Signed-off-by: Jason Etheridge <jason@esilibrary.com>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
index f8fdb80017..1058e8c342 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
@@ -700,7 +700,7 @@ sub billing_items_create {
     $billing->amount($amt);
 
     $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));
+    my $evt = OpenILS::Utils::Penalty->calculate_penalties($e, $xact->usr, $U->xact_org($xact->id,$e));
     return $evt if $evt;
     $e->commit;