fix another hold targeting glitch

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

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 996acf2..0b4e6c9 100644 (file)
--- 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)));