From ee5c3191587d870bc200c00fbd1daae819021cfe Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 14 Jul 2011 17:21:52 -0400 Subject: [PATCH] calculate penalties when letting Mark Item Damaged add bills Signed-off-by: Jason Etheridge Signed-off-by: Galen Charlton --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm index f5cc14cf77..fba805a0a0 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm @@ -1275,6 +1275,9 @@ sub handle_mark_damaged { my $ses = OpenSRF::AppSession->create('open-ils.trigger'); $ses->request('open-ils.trigger.event.autocreate', 'checkout.damaged', $circ, $circ->circ_lib); + my $evt2 = OpenILS::Utils::Penalty->calculate_penalties($e, $circ->usr->id, $e->requestor->ws_ou); + return $evt2 if $evt2; + return undef; } else { -- 2.43.2