From 30783aded200f0041cc18217ca360a1b17058351 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 Signed-off-by: Mike Rylander --- 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 cb45fd3bc2..85c7615098 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm @@ -2944,6 +2944,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.43.2