--- loncom/interface/lonpreferences.pm 2003/11/07 23:22:21 1.32 +++ 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.32 2003/11/07 23:22:21 www Exp $ +# $Id: lonpreferences.pm,v 1.34 2004/01/14 15:51:07 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -114,14 +114,23 @@ sub languagechanger { 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 $r->print('
'); } @@ -728,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(< @@ -742,6 +756,7 @@ ENDHEADER
+$help{'Change_Password'}
ENDPASSWORDFORM } @@ -751,12 +766,14 @@ ENDPASSWORDFORM +$help{'Prefs_Screen_Name_Nickname'} ENDSCREENNAMEFORM $r->print(< +$help{'Prefs_Forwarding'} ENDMSGFORWARDFORM # The "about me" page @@ -772,6 +789,7 @@ ENDABOUTME
+$help{'Change_Colors'}
ENDCOLORFORM