fire the hold_request.cancel.staff when hold is cancelled by staff

git-svn-id: svn://svn.open-ils.org/ILS/trunk@18109 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
index 174e28a..2073ce2 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -647,6 +647,10 @@ sub cancel_hold {
        delete_hold_copy_maps($self, $e, $hold->id);
 
        $e->commit;
+
+    $U->create_events_for_hook('hold_request.cancel.staff', $hold, $hold->pickup_lib)
+        if $e->requestor->id != $hold->usr;
+
        return 1;
 }