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