From 74c38c62d3b7ed7fbe3a23dbae1b5d7226f16d2e Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 4 Jun 2010 15:07:13 +0000 Subject: [PATCH] thinko (unquoted string literal); be more explicity about circ lib comparisons git-svn-id: svn://svn.open-ils.org/ILS/trunk@16593 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Storage/Publisher/action.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 c4785e0ff3..dd33469aaf 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm @@ -1252,7 +1252,7 @@ sub new_hold_copy_targeter { $$prox_list[0] = [ grep { - $_->circ_lib == $hold->pickup_lib + ''.$_->circ_lib eq ''.$hold->pickup_lib } @good_copies ]; @@ -1270,7 +1270,7 @@ sub new_hold_copy_targeter { )->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 @@ sub new_hold_copy_targeter { 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 @@ sub new_hold_copy_targeter { # 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 -- 2.11.0