|
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 |
- |
|
|