|
version 1.458, 2006/09/21 21:23:15
|
version 1.459, 2006/09/22 19:59:30
|
|
Line 2353 sub preferred_languages {
|
Line 2353 sub preferred_languages {
|
| $env{'course.'.$env{'request.course.id'}.'.languages'})); |
$env{'course.'.$env{'request.course.id'}.'.languages'})); |
| } |
} |
| if ($env{'environment.languages'}) { |
if ($env{'environment.languages'}) { |
| @languages=split(/\s*(\,|\;|\:)\s*/,$env{'environment.languages'}); |
@languages=(@languages, |
| |
split(/\s*(\,|\;|\:)\s*/,$env{'environment.languages'})); |
| } |
} |
| my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0]; |
my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0]; |
| if ($browser) { |
if ($browser) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface