Clear-shelf includes pickup-lib changes : Perl repairs

Signed-off-by: Bill Erickson <berick@esilibrary.com>

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 86d0cc5..5b523e8 100644 (file)
--- 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(