From: gmc Date: Mon, 27 Sep 2010 19:48:33 +0000 (+0000) Subject: fix another hold targeting glitch X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0c89d137f2761d2f832992f7c3171ea37d644922;p=evergreen%2Fbjwebb.git fix another hold targeting glitch Signed-off-by: Galen Charlton git-svn-id: svn://svn.open-ils.org/ILS/trunk@18047 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm index 996acf270..0b4e6c991 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm @@ -1709,8 +1709,7 @@ sub choose_nearest_copy { for my $p ( 0 .. int( scalar(@$prox_list) - 1) ) { next unless (ref $$prox_list[$p]); - # We do this in the main body now - #my @capturable = grep { $_->status == 0 || $_->status == 7 } @{ $$prox_list[$p] }; + my @capturable = @{ $$prox_list[$p] }; next unless (@capturable); my $rand = int(rand(scalar(@capturable)));