[open-ils-commits] r18109 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-09-30 16:49:14 -0400 (Thu, 30 Sep 2010)
New Revision: 18109

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
fire the hold_request.cancel.staff when hold is cancelled by staff

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2010-09-30 02:59:50 UTC (rev 18108)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2010-09-30 20:49:14 UTC (rev 18109)
@@ -647,6 +647,10 @@
 	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;
 }