From 14608d922a254b820476f6c59dee036ff98284e9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 9 Jan 2015 16:01:35 +0100 Subject: [PATCH] Bug 13544: Make it explicit that getauthtypes returns a hash ref Prior to perl 5.12 keys can only operate on a hash. Test plan: With perl 5.10, access to admin/auth_subfields_structure.pl. Without this patch, you get: Type of arg 1 to keys must be hash (not subroutine entry) at /home/koha/src/admin/auth_subfields_structure.pl line 102, near "getauthtypes)" --- admin/auth_subfields_structure.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl index 96088bd..38521d9 100755 --- a/admin/auth_subfields_structure.pl +++ b/admin/auth_subfields_structure.pl @@ -99,7 +99,7 @@ if ($op eq 'add_form') { push @$authorised_values, 'itemtypes'; # build thesaurus categories list - my @authtypes = (sort keys getauthtypes); + my @authtypes = (sort keys %{C4::Koha::getauthtypes()}); # build value_builder list my @value_builder=(''); -- 2.1.0