Bug 6132: preference were case sensitive.

[koha.git] / C4 / Context.pm

diff --git a/C4/Context.pm b/C4/Context.pm
index 07b2b13..7581faa 100644 (file)
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -463,7 +463,7 @@ my %sysprefs;
 
 sub preference {
     my $self = shift;
-    my $var  = shift;                          # The system preference to return
+    my $var  = lc(shift);                          # The system preference to return
 
     if (exists $sysprefs{$var}) {
         return $sysprefs{$var};