From 84296b95bacf4230353a5150889e1ebfd3ca4937 Mon Sep 17 00:00:00 2001
From: Aleisha Amohia <aleishaamohia@hotmail.com>
Date: Mon, 29 Jul 2024 02:26:11 +0000
Subject: [PATCH] Bug 27490: More instances of changing language syspref to
 StaffInterfaceLanguages

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Nicolas Hunstein <nicolas.hunstein@bsz-bw.de>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 C4/Installer.pm | 2 +-
 C4/Languages.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/Installer.pm b/C4/Installer.pm
index 03c2e07d62..952b629051 100644
--- a/C4/Installer.pm
+++ b/C4/Installer.pm
@@ -493,7 +493,7 @@ sub set_languages_syspref {
 
     warn "UPDATE Languages";
     # intranet
-    my $pref = $self->{'dbh'}->prepare("UPDATE systempreferences SET value=? WHERE variable='language'");
+    my $pref = $self->{'dbh'}->prepare("UPDATE systempreferences SET value=? WHERE variable='StaffInterfaceLanguages'");
     $pref->execute("en,$language");
     # opac
     $pref = $self->{'dbh'}->prepare("UPDATE systempreferences SET value=? WHERE variable='OPACLanguages'");
diff --git a/C4/Languages.pm b/C4/Languages.pm
index ac17631320..a9f8295cf1 100644
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@@ -639,7 +639,7 @@ sub getlanguage {
     my $language;
 
     my $preference_to_check =
-      $interface eq 'intranet' ? 'language' : 'OPACLanguages';
+      $interface eq 'intranet' ? 'StaffInterfaceLanguages' : 'OPACLanguages';
     # Get the available/valid languages list
     my @languages;
     my $preference_value = C4::Context->preference($preference_to_check);
-- 
2.39.5