From 711f4252efc589836bbee08ae8ae9b7e31cb2516 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 15 Sep 2011 13:38:17 -0400 Subject: [PATCH] Create events for hold_request.cancel.patron When a patron cancels his/her own hold, create events for the (already-existing) hold_request.cancel.patron A/T hook. Signed-off-by: Bill Erickson Signed-off-by: Galen Charlton --- .../src/perlmods/lib/OpenILS/Application/Circ/Holds.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm index e3ec8b797d..60563f3184 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm @@ -765,8 +765,11 @@ sub cancel_hold { $hold = $e->retrieve_action_hold_request($hold->id) or return $e->die_event; $e->rollback; - $U->create_events_for_hook('hold_request.cancel.staff', $hold, $hold->pickup_lib) - if $e->requestor->id != $hold->usr; + if ($e->requestor->id == $hold->usr) { + $U->create_events_for_hook('hold_request.cancel.patron', $hold, $hold->pickup_lib) + } else { + $U->create_events_for_hook('hold_request.cancel.staff', $hold, $hold->pickup_lib) + } return 1; } -- 2.43.2