From 1ca1dc27b1d3603354974dc4ecb7399ba2f7b16d Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Thu, 3 Mar 2011 12:02:38 +0100
Subject: [PATCH] Bug 6132: preference were case sensitive.

---
 C4/Context.pm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/C4/Context.pm b/C4/Context.pm
index 484d4e1..49beb87 100644
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -464,6 +464,7 @@ sub preference {
     my $self = shift;
     my $var  = shift;                          # The system preference to return
 
+    $var = lc($var);
     if (exists $sysprefs{$var}) {
         return $sysprefs{$var};
     }
@@ -474,7 +475,7 @@ sub preference {
     my $sql = <<'END_SQL';
         SELECT    value
         FROM    systempreferences
-        WHERE    variable=?
+        WHERE    LOWER(variable)=?
         LIMIT    1
 END_SQL
     $sysprefs{$var} = $dbh->selectrow_array( $sql, {}, $var );
-- 
1.7.4.1