--- loncom/interface/lonpreferences.pm 2003/09/29 16:09:20 1.30 +++ loncom/interface/lonpreferences.pm 2003/11/08 01:45:26 1.33 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.30 2003/09/29 16:09:20 www Exp $ +# $Id: lonpreferences.pm,v 1.33 2003/11/08 01:45:26 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -51,6 +51,7 @@ use Crypt::DES; use DynaLoader; # for Crypt::DES version use Apache::loncommon(); use Apache::lonhtmlcommon(); +use Apache::lonlocal; # # Write lonnet::passwd to do the call below. @@ -108,27 +109,30 @@ sub languagechanger { my $user = $ENV{'user.name'}; my $domain = $ENV{'user.domain'}; my %userenv = &Apache::lonnet::get - ('environment',['languages','translator']); + ('environment',['languages']); my $language=$userenv{'languages'}; - my $translator=$userenv{'translator'}; + my $bodytag=&Apache::loncommon::bodytag( 'Change Your Language Preferences'); + my $pref=&mt('Preferred language'); + my %langchoices=('' => 'No language preference'); + foreach (&Apache::loncommon::languageids()) { + if (&Apache::loncommon::supportedlanguagecode($_)) { + $langchoices{&Apache::loncommon::supportedlanguagecode($_)} + = &Apache::loncommon::plainlanguagedescription($_); + } + } + my $selectionbox=&Apache::loncommon::select_form($language,'language', + %langchoices); $r->print(< $bodytag
-
Preferred language: - +
$pref: $selectionbox ENDLSCREEN - if ($ENV{'user.adv'}) { - $r->print (<Willing to translate for language: - -ENDTRSC - } - $r->print('
'); + $r->print('
'); } @@ -149,21 +153,6 @@ sub verify_and_change_languages { &Apache::lonnet::delenv('environment\.languages'); $message='Reset preferred language'; } - if ($ENV{'user.adv'}) { - $message.='
'; - my $newtrans = $ENV{'form.translator'}; - $newtrans=~s/[^\-\w]//g; - if ($newtrans) { - &Apache::lonnet::put('environment',{'translator' => $newtrans}); - &Apache::lonnet::appenv('environment.translator' => $newtrans); - $message.='Set translator to '.$newtrans; - } else { - &Apache::lonnet::del('environment',['translator']); - &Apache::lonnet::delenv('environment\.translator'); - $message.='Reset translator'; - } - } - my $bodytag=&Apache::loncommon::bodytag( 'Change Your Language Preferences'); $r->print(<send_http_header;