hold targeter reify

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
index cb37354..08afb4b 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
@@ -892,13 +892,13 @@ sub find_nearest_copy {
         my $rand = int(rand(scalar(@copies)));
 
         while (my ($c) = splice(@copies, $rand, 1)) {
+            $rand = int(rand(scalar(@copies)));
             next if $seen{$c->{id}};
 
             return $c if $self->copy_is_permitted($c);
             $seen{$c->{id}} = 1;
 
             last unless(@copies);
-            $rand = int(rand(scalar(@copies)));
         }
     }