added hold-type "R" logic to short-circuit the best-hold searching to use the hold...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6690 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 b3589ef..b722c8d 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -1083,6 +1083,9 @@ sub find_nearest_permitted_hold {
                } 
        );
 
+       # hold->type "R" means we need this copy
+       for my $h (@$old_holds) { return ($h) if $h->type eq 'R'; }
+
        $logger->info("circulator: searching for best hold at org ".$user->ws_ou." and copy $bc");
 
        # search for what should be the best holds for this copy to fulfill