version 1.32, 2003/11/07 23:22:21
|
version 1.34, 2004/01/14 15:51:07
|
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>'); |
} |
} |
Line 728 sub handler {
|
Line 737 sub handler {
|
} |
} |
} |
} |
} else { |
} else { |
|
my %help=(); |
|
foreach ('Change_Colors','Change_Password', |
|
'Prefs_Screen_Name_Nickname','Prefs_Forwarding') { |
|
$help{$_}=&Apache::loncommon::help_open_topic($_); |
|
} |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
Line 742 ENDHEADER
|
Line 756 ENDHEADER
|
<form name="client" action="/adm/preferences" method="post"> |
<form name="client" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="changepass" /> |
<input type="hidden" name="action" value="changepass" /> |
<input type="submit" value="Change password" /> |
<input type="submit" value="Change password" /> |
|
$help{'Change_Password'} |
</form> |
</form> |
ENDPASSWORDFORM |
ENDPASSWORDFORM |
} |
} |
Line 751 ENDPASSWORDFORM
|
Line 766 ENDPASSWORDFORM
|
<input type="hidden" name="action" value="changescreenname" /> |
<input type="hidden" name="action" value="changescreenname" /> |
<input type="submit" |
<input type="submit" |
value="Change nickname and anonymous discussion screen name" /> |
value="Change nickname and anonymous discussion screen name" /> |
|
$help{'Prefs_Screen_Name_Nickname'} |
</form> |
</form> |
ENDSCREENNAMEFORM |
ENDSCREENNAMEFORM |
$r->print(<<ENDMSGFORWARDFORM); |
$r->print(<<ENDMSGFORWARDFORM); |
<form name="client" action="/adm/preferences" method="post"> |
<form name="client" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="changemsgforward" /> |
<input type="hidden" name="action" value="changemsgforward" /> |
<input type="submit" value="Change message forwarding and notification addresses" /> |
<input type="submit" value="Change message forwarding and notification addresses" /> |
|
$help{'Prefs_Forwarding'} |
</form> |
</form> |
ENDMSGFORWARDFORM |
ENDMSGFORWARDFORM |
# The "about me" page |
# The "about me" page |
Line 772 ENDABOUTME
|
Line 789 ENDABOUTME
|
<form name="client" action="/adm/preferences" method="post"> |
<form name="client" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="changecolors" /> |
<input type="hidden" name="action" value="changecolors" /> |
<input type="submit" value="Change color scheme" /> |
<input type="submit" value="Change color scheme" /> |
|
$help{'Change_Colors'} |
</form> |
</form> |
ENDCOLORFORM |
ENDCOLORFORM |
|
|