loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.32, 2003/11/07 23:22:21	version 1.33, 2003/11/08 01:45:26
Line 114 sub languagechanger {	Line 114 sub languagechanger {

my $bodytag=&Apache::loncommon::bodytag(	my $bodytag=&Apache::loncommon::bodytag(
'Change Your Language Preferences');	'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(<<ENDLSCREEN);	$r->print(<<ENDLSCREEN);
<html>	<html>
$bodytag	$bodytag

<form name="server" action="/adm/preferences" method="post">	<form name="server" action="/adm/preferences" method="post">
<input type="hidden" name="action" value="verify_and_change_languages" />	<input type="hidden" name="action" value="verify_and_change_languages" />
<br />Preferred language:	<br />$pref: $selectionbox
<input type="text" size="5" value="$language" name="language" />
ENDLSCREEN	ENDLSCREEN
$r->print('<br /><input type="submit" value="'.&mt('Change').'" /></form></body></html>');	$r->print('<br /><input type="submit" value="'.&mt('Change').'" /></form></body></html>');
}	}