From 3eca2d7ad7682132be10436e3158d58edeab6fa5 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 29 Sep 2014 15:24:36 +0200 Subject: [PATCH] Bug 12627: Remove warnings suggestion.pl: keys on reference is experimental --- suggestion/suggestion.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl index 72f40d3..211daa8 100755 --- a/suggestion/suggestion.pl +++ b/suggestion/suggestion.pl @@ -98,7 +98,7 @@ my $suggestion_ref = $input->Vars; # get only the columns of Suggestion my $schema = Koha::Database->new()->schema; my $columns = ' '.join(' ', $schema->source('Suggestion')->columns).' '; -my $suggestion_only = { map { $columns =~ / $_ / ? ($_ => $suggestion_ref->{$_}) : () } keys($suggestion_ref) }; +my $suggestion_only = { map { $columns =~ / $_ / ? ($_ => $suggestion_ref->{$_}) : () } keys %$suggestion_ref }; $suggestion_only->{STATUS} = $suggestion_ref->{STATUS}; delete $$suggestion_ref{$_} foreach qw( suggestedbyme op displayby tabcode edit_field ); -- 2.1.0