--- loncom/interface/lonpreferences.pm 2003/09/29 16:09:20 1.30 +++ loncom/interface/lonpreferences.pm 2004/01/14 15:51:07 1.34 @@ -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.34 2004/01/14 15:51:07 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; @@ -748,6 +737,11 @@ sub handler { } } } else { + my %help=(); + foreach ('Change_Colors','Change_Password', + 'Prefs_Screen_Name_Nickname','Prefs_Forwarding') { + $help{$_}=&Apache::loncommon::help_open_topic($_); + } $r->print(< @@ -762,6 +756,7 @@ ENDHEADER
+$help{'Change_Password'}
ENDPASSWORDFORM } @@ -771,12 +766,14 @@ ENDPASSWORDFORM +$help{'Prefs_Screen_Name_Nickname'} ENDSCREENNAMEFORM $r->print(< +$help{'Prefs_Forwarding'} ENDMSGFORWARDFORM # The "about me" page @@ -792,6 +789,7 @@ ENDABOUTME
+$help{'Change_Colors'}
ENDCOLORFORM