From d2bf26f4189eb0c56a52e8ed060824e5b0fac2bf Mon Sep 17 00:00:00 2001 From: Thomas Berezansky Date: Thu, 26 Jul 2012 10:25:32 -0400 Subject: [PATCH] Make Force/Recall holds always return as nearest Without even running the hold rules. Signed-off-by: Thomas Berezansky --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm | 5 +++++ 1 file changed, 5 insertions(+) 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 b72db96635..0f8fd60f69 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm @@ -2955,6 +2955,11 @@ sub find_nearest_permitted_hold { $logger->info("circulator: checking if hold $holdid is permitted for copy $bc"); my $hold = $editor->retrieve_action_hold_request($holdid) or next; + # Force and recall holds bypass all rules + if ($hold->hold_type eq 'R' || $hold->hold_type eq 'F') { + $best_hold = $hold; + last; + } my $reqr = $reqr_cache{$hold->requestor} || $editor->retrieve_actor_user($hold->requestor); my $rlib = $org_cache{$hold->request_lib} || $editor->retrieve_actor_org_unit($hold->request_lib); -- 2.11.0