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