From 4ffcfe2356789c128c3c4e6cd3e1668a65711fcc Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 14 Feb 2014 16:56:48 -0500 Subject: [PATCH] squash me to 7e8f0c6; filtered recs syntax repair Signed-off-by: Bill Erickson --- .../src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.11.0