View | Details | Raw Unified | Return to bug 12534
Collapse All | Expand All

(-)a/C4/Languages.pm (-2 / +2 lines)
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
- 

Return to bug 12534