From 7a42d7f7f57ca885532c24b285f6375fb3338973 Mon Sep 17 00:00:00 2001 From: Thomas Berezansky Date: Thu, 26 Jul 2012 10:25:32 -0400 Subject: [PATCH 1/1] Make Force/Recall holds always return as nearest Without even running the hold rules. Signed-off-by: Thomas Berezansky Signed-off-by: Mike Rylander Conflicts: Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm (Just whitespace conflicts on tab vs space -- repaired by hand.) --- 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 924da087a4..1df7239d1b 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm @@ -3076,6 +3076,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