calling split on an undefined var generates warning to
the log. Lets check it exists before processing it
---
admin/preferences.pl | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/admin/preferences.pl b/admin/preferences.pl
index 8636afe..9a2c8ca 100755
--- a/admin/preferences.pl
+++ b/admin/preferences.pl
@@ -121,7 +121,10 @@ 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 ( $ENV{OVERRIDE_SYSPREF_NAMES} ) {
+ @override_syspref_names = split /,/, $ENV{OVERRIDE_SYSPREF_NAMES};
+ }
foreach my $group ( sort keys %$tab ) {
if ( $group ) {
--
1.8.3.1
_______________________________________________
Koha-patches mailing list
Koha-patches@lists.koha-community.org
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
