|
Lines 571-576
sub getlanguage {
Link Here
|
| 571 |
|
571 |
|
| 572 |
$cgi //= new CGI; |
572 |
$cgi //= new CGI; |
| 573 |
my $interface = C4::Context->interface; |
573 |
my $interface = C4::Context->interface; |
|
|
574 |
my $theme = C4::Context->preference( ( $interface eq 'opac' ) ? 'opacthemes' : 'template' ); |
| 574 |
my $language; |
575 |
my $language; |
| 575 |
|
576 |
|
| 576 |
my $preference_to_check = |
577 |
my $preference_to_check = |
|
Lines 592-598
sub getlanguage {
Link Here
|
| 592 |
# HTTP_ACCEPT_LANGUAGE |
593 |
# HTTP_ACCEPT_LANGUAGE |
| 593 |
if ( !$language && $ENV{HTTP_ACCEPT_LANGUAGE} ) { |
594 |
if ( !$language && $ENV{HTTP_ACCEPT_LANGUAGE} ) { |
| 594 |
$language = accept_language( $ENV{HTTP_ACCEPT_LANGUAGE}, |
595 |
$language = accept_language( $ENV{HTTP_ACCEPT_LANGUAGE}, |
| 595 |
getTranslatedLanguages( $interface, 'prog' ) ); |
596 |
getTranslatedLanguages( $interface, $theme ) ); |
| 596 |
} |
597 |
} |
| 597 |
|
598 |
|
| 598 |
# Ignore a lang not selected in sysprefs |
599 |
# Ignore a lang not selected in sysprefs |
| 599 |
- |
|
|