Attachment 100712 Details for Bug 24872 – Bug 24872: Set languages prefererences after install

[patch] Bug 24872: Set languages prefererences after install

Bug-24872-Set-languages-prefererences-after-instal.patch (text/plain), 2.28 KB, created by Bernardo Gonzalez Kriegel on 2020-03-15 23:20:34 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Bernardo Gonzalez Kriegel

Created: 2020-03-15 23:20:34 UTC

Size: 2.28 KB

patch

obsolete

>From 8e6bb5c9286f712e530e6fc3c6852246e1dcd6b2 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.
>---
> C4/Installer.pm      | 26 ++++++++++++++++++++++++++
> installer/install.pl |  5 +++++
> 2 files changed, 31 insertions(+)
>
>diff --git a/C4/Installer.pm b/C4/Installer.pm
>index a1c6f5f6a6..9c9a44ac0a 100644
>--- a/C4/Installer.pm
>+++ b/C4/Installer.pm
>@@ -447,6 +447,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 851accb319..ecc2530297 100755
>--- a/installer/install.pl
>+++ b/installer/install.pl
>@@ -230,6 +230,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.17.1

Actions: View | Diff | Splinter Review

Attachments on bug 24872: 100712 | 101446 | 101522