$htdocs = C4::Context->config('intrahtdocs');
}
my $path = C4::Context->preference('intranet_includes') || 'includes';
-
my ( $theme, $lang ) = themelanguage( $htdocs, $tmplbase, $interface, $query );
my $opacstylesheet = C4::Context->preference('opacstylesheet');
# Set some defaults for language and theme
# First, check the user's preferences
my $lang;
- my $http_accept_language = regex_lang_subtags($ENV{HTTP_ACCEPT_LANGUAGE})->{language};
+ my $http_env = $ENV{HTTP_ACCEPT_LANGUAGE};
+ $http_env =~ m/(\w+-*\w*),/;
+ my $language_preference = $1;
+ my $http_accept_language = regex_lang_subtags($language_preference)->{language};
if ($http_accept_language) {
$lang = accept_language($http_accept_language,getTranslatedLanguages($interface,'prog'));
}
# But, if there's a cookie set, obey it
$lang = $query->cookie('KohaOpacLanguage') if $query->cookie('KohaOpacLanguage');
# Fall back to English
- my @languages = split " ", C4::Context->preference("opaclanguages");
+ my @languages;
+ if ($interface eq 'intranet') {
+ @languages = split " ", C4::Context->preference("language");
+ } else {
+ @languages = split " ", C4::Context->preference("opaclanguages");
+ }
if ($lang){
@languages=($lang,@languages);
} else {