Bug 24872: Set languages prefererences after install

[srvgit] / C4 / Installer.pm

diff --git a/C4/Installer.pm b/C4/Installer.pm
index 5f343f5..7dd4f42 100644 (file)
--- 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);