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>'); |
} |
} |