[open-ils-commits] r18047 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-09-27 15:48:33 -0400 (Mon, 27 Sep 2010)
New Revision: 18047

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
fix another hold targeting glitch

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


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2010-09-27 19:27:39 UTC (rev 18046)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2010-09-27 19:48:33 UTC (rev 18047)
@@ -1709,8 +1709,7 @@
 	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)));