From eaf1d7e35eec5b228c4f3bb17c748287bedb0fd1 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 17 Jun 2016 12:05:18 -0400 Subject: [PATCH] hold targeter reify Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm index cb373548f9..08afb4b095 100644 --- 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))); } } -- 2.11.0