[open-ils-commits] r19499 - trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2011-02-21 13:34:02 -0500 (Mon, 21 Feb 2011)
New Revision: 19499

Modified:
   trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
Log:
Make sure we continue looping in situations where there is only one copy

Modified: trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm	2011-02-21 18:33:27 UTC (rev 19498)
+++ trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm	2011-02-21 18:34:02 UTC (rev 19499)
@@ -1411,7 +1411,8 @@
 						# We haven't exceeded max_loops yet
 						my @keeper_copies;
 						for my $cp ( @$all_copies ) {
-							push(@keeper_copies, $cp) if ( grep { $_ eq ''.$cp->circ_lib } @keepers );
+							push(@keeper_copies, $cp) if ( !@keepers || grep { $_ eq ''.$cp->circ_lib } @keepers );
+
 						}
 						$all_copies = [@keeper_copies];
 					} else {