Lines 181-186
sub themelanguage_lite {
Link Here
|
181 |
$lang = $query->cookie('KohaOpacLanguage') |
181 |
$lang = $query->cookie('KohaOpacLanguage') |
182 |
if ( defined $query and $query->cookie('KohaOpacLanguage') ); |
182 |
if ( defined $query and $query->cookie('KohaOpacLanguage') ); |
183 |
|
183 |
|
|
|
184 |
# Sanitize the user input |
185 |
$lang =~ s/[^a-zA-Z_-]*//; |
186 |
|
184 |
# Fall back to English |
187 |
# Fall back to English |
185 |
my @languages; |
188 |
my @languages; |
186 |
if ( $interface eq 'intranet' ) { |
189 |
if ( $interface eq 'intranet' ) { |
Lines 324-329
sub themelanguage {
Link Here
|
324 |
if $http_accept_language; |
327 |
if $http_accept_language; |
325 |
# But, if there's a cookie set, obey it |
328 |
# But, if there's a cookie set, obey it |
326 |
$lang = $query->cookie('KohaOpacLanguage') if (defined $query and $query->cookie('KohaOpacLanguage')); |
329 |
$lang = $query->cookie('KohaOpacLanguage') if (defined $query and $query->cookie('KohaOpacLanguage')); |
|
|
330 |
|
331 |
# Sanitize the user input |
332 |
$lang =~ s/[^a-zA-Z_-]*//; |
333 |
|
327 |
# Fall back to English |
334 |
# Fall back to English |
328 |
my @languages; |
335 |
my @languages; |
329 |
if ($interface eq 'intranet') { |
336 |
if ($interface eq 'intranet') { |