From: Chris Sharp <csharp@georgialibraries.org>
Date: Tue, 22 Oct 2019 17:35:20 +0000 (-0400)
Subject: LP#1712861 - Correct perl syntax
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Fcsharp%2Flp1712861-notices-column-picker-patron-holds;p=working%2FEvergreen.git

LP#1712861 - Correct perl syntax

Signed-off-by: Chris Sharp <csharp@georgialibraries.org>
---

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 67b6782854..a383ba6dcc 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
@@ -2392,7 +2392,7 @@ SELECT  h.id, h.request_time, h.capture_time, h.fulfillment_time, h.checkin_time
 
         my $sel_str = '';
         if (ref($$restrictions{$r}) and ref($$restrictions{$r}) =~ /HASH/) {
-            for my $rkey (keys %$restrictions{$r}) {
+            for my $rkey (keys %{$restrictions{$r}}) {
                 $sel_str .= handle_wide_hold_restrictions($$restrictions{$r}{$rkey}, $real, $rkey);
             }
             $select .= $sel_str;