|
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') { |