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

(-)a/C4/Templates.pm (-16 / +5 lines)
Lines 277-284 sub themelanguage { Link Here
277
    my @languages = split(",", C4::Context->preference(
277
    my @languages = split(",", C4::Context->preference(
278
        $is_intranet ? 'language' : 'opaclanguages'));
278
        $is_intranet ? 'language' : 'opaclanguages'));
279
    my $lang;
279
    my $lang;
280
    $lang = getlanguagecookie($query);
280
    if ( $query->cookie('KohaOpacLanguage') ) {
281
    unless ($lang) {
281
        $lang = $query->cookie('KohaOpacLanguage') ;
282
        $lang =~ s/[^a-zA-Z_-]*//; #sanitzie
283
    }
284
    else {
282
        my $http_accept_language = $ENV{ HTTP_ACCEPT_LANGUAGE };
285
        my $http_accept_language = $ENV{ HTTP_ACCEPT_LANGUAGE };
283
        $lang = accept_language( $http_accept_language, 
286
        $lang = accept_language( $http_accept_language, 
284
            getTranslatedLanguages($interface,'prog') );
287
            getTranslatedLanguages($interface,'prog') );
Lines 317-334 sub setlanguagecookie { Link Here
317
    );
320
    );
318
}
321
}
319
322
320
sub getlanguagecookie {
321
    my ($query) = @_;
322
    my $lang;
323
    if ($query->cookie('KohaOpacLanguage')){
324
        $lang = $query->cookie('KohaOpacLanguage') ;
325
    }else{
326
        $lang = $ENV{HTTP_ACCEPT_LANGUAGE};
327
        
328
    }
329
    $lang =~ s/[^a-zA-Z_-]*//; #sanitzie
330
    return $lang;
331
}
332
333
1;
323
1;
334
324
335
- 

Return to bug 7282