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=f0ab78a1705e7ebdde50628514fe50dd413b591a;p=contrib%2FConifer.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/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
index 9d08670f82..8a001b0ad5 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
@@ -689,7 +689,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;