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

[svn at svn.open-ils.org]

Author: miker
Date: 2010-06-04 11:07:13 -0400 (Fri, 04 Jun 2010)
New Revision: 16593

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
thinko (unquoted string literal); be more explicity about circ lib comparisons

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2010-06-04 14:45:48 UTC (rev 16592)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2010-06-04 15:07:13 UTC (rev 16593)
@@ -1252,7 +1252,7 @@
 			$$prox_list[0] =
 			[
 				grep {
-					$_->circ_lib == $hold->pickup_lib
+					''.$_->circ_lib eq ''.$hold->pickup_lib
 				} @good_copies
 			];
 
@@ -1270,7 +1270,7 @@
 				)->gather(1);
 
 				if (defined($max_loops)) {
-					my %circ_lib_map =  map { $_->circ_lib => 1 } @$all_copies;
+					my %circ_lib_map =  map { (''.$_->circ_lib => 1) } @$all_copies;
 					my $circ_lib_list = [keys %circ_lib_map];
 	
 					my $cstore = OpenSRF::AppSession->connect('open-ils.cstore');
@@ -1291,7 +1291,7 @@
 					my $exclude_list = $cstore->request(
 						'open-ils.cstore.json_query.atomic',
 						{ distinct => 1,
-						  select => { aufhol => [circ_lib] },
+						  select => { aufhol => ['circ_lib'] },
 						  from => 'aufhol',
 						  where => { hold => $hold->id}
 						}
@@ -1321,7 +1321,7 @@
 						# 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 ( grep { $_ eq ''.$cp->circ_lib } @keepers );
 						}
 					} else {
 						# We have, and should remove potentials and cancel the hold