version 1.161, 2003/12/22 22:39:07
|
version 1.162, 2003/12/22 23:34:49
|
Line 1618 sub preferred_languages {
|
Line 1618 sub preferred_languages {
|
@languages=(@languages,split(/\s*(\,|\;|\:)\s*/, |
@languages=(@languages,split(/\s*(\,|\;|\:)\s*/, |
$ENV{'course.'.$ENV{'request.course.id'}.'.languages'})); |
$ENV{'course.'.$ENV{'request.course.id'}.'.languages'})); |
} |
} |
|
my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0]; |
|
if ($browser) { |
|
@languages=(@languages,split(/\s*(\,|\;|\:)\s*/,$browser)); |
|
} |
if ($Apache::lonnet::domain_lang_def{$ENV{'user.domain'}}) { |
if ($Apache::lonnet::domain_lang_def{$ENV{'user.domain'}}) { |
@languages=(@languages, |
@languages=(@languages, |
$Apache::lonnet::domain_lang_def{$ENV{'user.domain'}}); |
$Apache::lonnet::domain_lang_def{$ENV{'user.domain'}}); |