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'}) { |