From: Bill Erickson Date: Fri, 14 Feb 2014 21:56:48 +0000 (-0500) Subject: squash me to 7e8f0c6; filtered recs syntax repair X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4ffcfe2356789c128c3c4e6cd3e1668a65711fcc;p=working%2FEvergreen.git squash me to 7e8f0c6; filtered recs syntax repair Signed-off-by: Bill Erickson --- diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm index 54ff334afb..fe1448dced 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm @@ -1312,7 +1312,7 @@ sub MR_records_matching_format { for my $r ( map { isTrue($_->deleted) ? () : ($_->id) } @$records ) { # the map{} below is tricky. it puts the record ID in front of each param. see $q above $client->respond($r) - if @{action::hold_request->db_Main->selectcol_arrayref( $q {}, map { ( $r => $_ ) } @args )}; + if @{action::hold_request->db_Main->selectcol_arrayref( $q, {}, map { ( $r => $_ ) } @args )}; } return; # discard final l-val