From b10d3ce396e0c99988b01d93a535138824dee2fa Mon Sep 17 00:00:00 2001 From: Chris Sharp Date: Tue, 22 Oct 2019 13:35:20 -0400 Subject: [PATCH] LP#1712861 - Correct perl syntax Signed-off-by: Chris Sharp --- .../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 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; -- 2.11.0