Lines 180-186
sub themelanguage_lite {
Link Here
|
180 |
# But, if there's a cookie set, obey it |
180 |
# But, if there's a cookie set, obey it |
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 |
$lang =~ s/[^a-zA-Z_-]*//; |
184 |
# Fall back to English |
184 |
# Fall back to English |
185 |
my @languages; |
185 |
my @languages; |
186 |
if ( $interface eq 'intranet' ) { |
186 |
if ( $interface eq 'intranet' ) { |
Lines 324-329
sub themelanguage {
Link Here
|
324 |
if $http_accept_language; |
324 |
if $http_accept_language; |
325 |
# But, if there's a cookie set, obey it |
325 |
# But, if there's a cookie set, obey it |
326 |
$lang = $query->cookie('KohaOpacLanguage') if (defined $query and $query->cookie('KohaOpacLanguage')); |
326 |
$lang = $query->cookie('KohaOpacLanguage') if (defined $query and $query->cookie('KohaOpacLanguage')); |
|
|
327 |
$lang =~ s/[^a-zA-Z_-]*//; |
327 |
# Fall back to English |
328 |
# Fall back to English |
328 |
my @languages; |
329 |
my @languages; |
329 |
if ($interface eq 'intranet') { |
330 |
if ($interface eq 'intranet') { |
330 |
- |
|
|