Lines 277-284
sub themelanguage {
Link Here
|
277 |
my @languages = split(",", C4::Context->preference( |
277 |
my @languages = split(",", C4::Context->preference( |
278 |
$is_intranet ? 'language' : 'opaclanguages')); |
278 |
$is_intranet ? 'language' : 'opaclanguages')); |
279 |
my $lang; |
279 |
my $lang; |
280 |
$lang = $query->cookie('KohaOpacLanguage') |
280 |
$lang = getlanguagecookie($query); |
281 |
if defined $query and $query->cookie('KohaOpacLanguage'); |
|
|
282 |
unless ($lang) { |
281 |
unless ($lang) { |
283 |
my $http_accept_language = $ENV{ HTTP_ACCEPT_LANGUAGE }; |
282 |
my $http_accept_language = $ENV{ HTTP_ACCEPT_LANGUAGE }; |
284 |
$lang = accept_language( $http_accept_language, |
283 |
$lang = accept_language( $http_accept_language, |
Lines 327-334
sub getlanguagecookie {
Link Here
|
327 |
$lang = $ENV{HTTP_ACCEPT_LANGUAGE}; |
326 |
$lang = $ENV{HTTP_ACCEPT_LANGUAGE}; |
328 |
|
327 |
|
329 |
} |
328 |
} |
330 |
$lang = substr($lang, 0, 2); |
329 |
$lang =~ s/[^a-zA-Z_-]*//; #sanitzie |
331 |
|
|
|
332 |
return $lang; |
330 |
return $lang; |
333 |
} |
331 |
} |
334 |
|
332 |
|
335 |
- |
|
|