|
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 = getlanguagecookie($query); |
280 |
if ( $query->cookie('KohaOpacLanguage') ) { |
| 281 |
unless ($lang) { |
281 |
$lang = $query->cookie('KohaOpacLanguage') ; |
|
|
282 |
$lang =~ s/[^a-zA-Z_-]*//; #sanitzie |
| 283 |
} |
| 284 |
else { |
| 282 |
my $http_accept_language = $ENV{ HTTP_ACCEPT_LANGUAGE }; |
285 |
my $http_accept_language = $ENV{ HTTP_ACCEPT_LANGUAGE }; |
| 283 |
$lang = accept_language( $http_accept_language, |
286 |
$lang = accept_language( $http_accept_language, |
| 284 |
getTranslatedLanguages($interface,'prog') ); |
287 |
getTranslatedLanguages($interface,'prog') ); |
|
Lines 317-334
sub setlanguagecookie {
Link Here
|
| 317 |
); |
320 |
); |
| 318 |
} |
321 |
} |
| 319 |
|
322 |
|
| 320 |
sub getlanguagecookie { |
|
|
| 321 |
my ($query) = @_; |
| 322 |
my $lang; |
| 323 |
if ($query->cookie('KohaOpacLanguage')){ |
| 324 |
$lang = $query->cookie('KohaOpacLanguage') ; |
| 325 |
}else{ |
| 326 |
$lang = $ENV{HTTP_ACCEPT_LANGUAGE}; |
| 327 |
|
| 328 |
} |
| 329 |
$lang =~ s/[^a-zA-Z_-]*//; #sanitzie |
| 330 |
return $lang; |
| 331 |
} |
| 332 |
|
| 333 |
1; |
323 |
1; |
| 334 |
|
324 |
|
| 335 |
- |
|
|