From 3a21d8d4f3576490e17a422789fd2550e90e2c64 Mon Sep 17 00:00:00 2001
From: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Date: Sun, 15 Mar 2020 11:39:42 -0300
Subject: [PATCH] Bug 24872: Set languages prefererences after install

This patch set 'languages' and 'opaclanguages' system
preferences with the language used during install.

To test:
1. Apply the patch
2. Do a clean install in a language other than english
3. Verify that 'languages' and 'opaclanguages' system
preferences show the language code used during install,
besides english.

Signed-off-by: Owen Leonard <oleonard@myacpl.org>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Joy Nelson <joy@bywatersolutions.com>
(cherry picked from commit 6705ca9d4ee0d32c7808ee7aba30ffa744625ef1)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
---
 C4/Installer.pm      | 26 ++++++++++++++++++++++++++
 installer/install.pl |  5 +++++
 2 files changed, 31 insertions(+)

diff --git a/C4/Installer.pm b/C4/Installer.pm
index ab55c6d457..b3ec8e84cf 100644
--- a/C4/Installer.pm
+++ b/C4/Installer.pm
@@ -433,6 +433,32 @@ sub set_version_syspref {
     C4::Context->clear_syspref_cache();
 }
 
+=head2 set_languages_syspref
+
+  $installer->set_languages_syspref();
+
+Add the installation language to 'language' and 'opaclanguages' system preferences
+if different from 'en'
+
+=cut
+
+sub set_languages_syspref {
+    my $self     = shift;
+    my $language = shift;
+
+    return if ( not $language or $language eq 'en' );
+
+    warn "UPDATE Languages";
+    # intranet
+    my $pref = $self->{'dbh'}->prepare("UPDATE systempreferences SET value=? WHERE variable='language'");
+    $pref->execute("en,$language");
+    # opac
+    $pref = $self->{'dbh'}->prepare("UPDATE systempreferences SET value=? WHERE variable='opaclanguages'");
+    $pref->execute("en,$language");
+
+    C4::Context->clear_syspref_cache();
+}
+
 =head2 load_sql
 
   my $error = $installer->load_sql($filename);
diff --git a/installer/install.pl b/installer/install.pl
index bf9ccc4229..829a43ebb8 100755
--- a/installer/install.pl
+++ b/installer/install.pl
@@ -212,6 +212,11 @@ elsif ( $step && $step == 3 ) {
     elsif ( $op && $op eq 'finish' ) {
         $installer->set_version_syspref();
 
+        my $langchoice = $query->param('fwklanguage');
+        $langchoice = $query->cookie('KohaOpacLanguage') unless ($langchoice);
+        $langchoice =~ s/[^a-zA-Z_-]*//g;
+        $installer->set_languages_syspref($langchoice);
+
 # Installation is finished.
 # We just deny anybody access to install
 # And we redirect people to mainpage.
-- 
2.39.5