From 1797e096e315ad1602e729a9a2293e401efbb23f Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 22 Aug 2012 10:25:31 -0400 Subject: [PATCH] Clear-shelf includes pickup-lib changes : Perl repairs Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm index 86d0cc5cb4..5b523e8bdc 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm @@ -3543,7 +3543,7 @@ sub pickup_lib_changed_on_shelf_holds { {'not in' => $ignore_holds} if @$ignore_holds; my $hold_ids = $e->json_query($query); - return map { $_->{id} } @$hold_ids; + return [ map { $_->{id} } @$hold_ids ]; } __PACKAGE__->register_method( -- 2.11.0