--- loncom/interface/lonpreferences.pm 2003/11/07 23:22:21 1.32 +++ 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.32 2003/11/07 23:22:21 www Exp $ +# $Id: lonpreferences.pm,v 1.33 2003/11/08 01:45:26 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('
'); }