Bug 6132: preference were case sensitive.

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>

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};