Merge remote-tracking branch 'origin/new/bug_5327'

[srvgit] / C4 / Context.pm

diff --git a/C4/Context.pm b/C4/Context.pm
index c2ed85c..770973f 100644 (file)
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -549,7 +549,7 @@ the sysprefs cache.
 
 sub set_preference {
     my $self = shift;
-    my $var = shift;
+    my $var = lc(shift);
     my $value = shift;
 
     my $dbh = C4::Context->dbh or return 0;
@@ -565,7 +565,9 @@ sub set_preference {
         ON DUPLICATE KEY UPDATE value = VALUES(value)
     " );
 
-    $sth->execute( $var, $value );
+    if($sth->execute( $var, $value )) {
+        $sysprefs{$var} = $value;
+    }
     $sth->finish;
 }