=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();

}

        my $langchoice = $query->param('fwklanguage');

        $langchoice = $query->cookie('KohaOpacLanguage') unless ($langchoice);

        $langchoice =~ s/[^a-zA-Z_-]*//g;

        $installer->set_languages_syspref($langchoice);