Bug 12482: (QA followup) coding guidelines for hashrefs

[koha_fer] / admin / preferences.pl

diff --git a/admin/preferences.pl b/admin/preferences.pl
index 8636afe..1513adc 100755 (executable)
--- a/admin/preferences.pl
+++ b/admin/preferences.pl
@@ -21,6 +21,7 @@ use strict;
 use warnings;
 
 use CGI;
+use Encode;
 use C4::Auth;
 use C4::Context;
 use C4::Koha;
@@ -54,7 +55,7 @@ sub GetTab {
         local_currency => $local_currency, # currency code is used, because we do not know how a given currency is formatted.
     );
 
-    return YAML::Syck::Load( $tab_template->output() );
+    return YAML::Syck::Load( Encode::decode('UTF-8',$tab_template->output()) );
 }
 
 sub _get_chunk {
@@ -121,7 +122,12 @@ sub TransformPrefsToHTML {
     my $tab = $data->{ $title };
     $tab = { '' => $tab } if ( ref( $tab ) eq 'ARRAY' );
 
-    my @override_syspref_names = split( /,/, $ENV{"OVERRIDE_SYSPREF_NAMES"} );
+    my @override_syspref_names;
+    if ( exists($ENV{OVERRIDE_SYSPREF_NAMES}) &&
+         defined($ENV{OVERRIDE_SYSPREF_NAMES})
+       ) {
+        @override_syspref_names = split /,/, $ENV{OVERRIDE_SYSPREF_NAMES};
+    }
 
     foreach my $group ( sort keys %$tab ) {
         if ( $group ) {