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