|
version 1.28, 2003/09/16 22:40:25
|
version 1.29, 2003/09/17 01:45:14
|
|
Line 108 sub languagechanger {
|
Line 108 sub languagechanger {
|
| my $user = $ENV{'user.name'}; |
my $user = $ENV{'user.name'}; |
| my $domain = $ENV{'user.domain'}; |
my $domain = $ENV{'user.domain'}; |
| my %userenv = &Apache::lonnet::get |
my %userenv = &Apache::lonnet::get |
| ('environment',['language','translator']); |
('environment',['languages','translator']); |
| my $language=$userenv{'language'}; |
my $language=$userenv{'languages'}; |
| my $translator=$userenv{'translator'}; |
my $translator=$userenv{'translator'}; |
| my $bodytag=&Apache::loncommon::bodytag( |
my $bodytag=&Apache::loncommon::bodytag( |
| 'Change Your Language Preferences'); |
'Change Your Language Preferences'); |
|
Line 141 sub verify_and_change_languages {
|
Line 141 sub verify_and_change_languages {
|
| $newlanguage=~s/[^\-\w]//g; |
$newlanguage=~s/[^\-\w]//g; |
| my $message=''; |
my $message=''; |
| if ($newlanguage) { |
if ($newlanguage) { |
| &Apache::lonnet::put('environment',{'language' => $newlanguage}); |
&Apache::lonnet::put('environment',{'languages' => $newlanguage}); |
| &Apache::lonnet::appenv('environment.language' => $newlanguage); |
&Apache::lonnet::appenv('environment.languages' => $newlanguage); |
| $message='Set new preferred language to '.$newlanguage; |
$message='Set new preferred languages to '.$newlanguage; |
| } else { |
} else { |
| &Apache::lonnet::del('environment',['language']); |
&Apache::lonnet::del('environment',['languages']); |
| &Apache::lonnet::delenv('environment\.language'); |
&Apache::lonnet::delenv('environment\.languages'); |
| $message='Reset preferred language'; |
$message='Reset preferred language'; |
| } |
} |
| if ($ENV{'user.adv'}) { |
if ($ENV{'user.adv'}) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpreferences.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface