version 1.125, 2008/07/18 12:36:11
|
version 1.125.2.2, 2008/12/23 19:28:07
|
Line 179 sub verify_and_change_languages {
|
Line 179 sub verify_and_change_languages {
|
&Apache::lonnet::delenv('environment\.languages'); |
&Apache::lonnet::delenv('environment\.languages'); |
$message=&mt('Reset preferred language.'); |
$message=&mt('Reset preferred language.'); |
} |
} |
|
&Apache::loncommon::flush_langs_cache($user,$domain); |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
Line 1782 sub handler {
|
Line 1783 sub handler {
|
text => 'Change Message Forwarding/Notification'}, |
text => 'Change Message Forwarding/Notification'}, |
printmenu => 'no', |
printmenu => 'no', |
subroutine => \&verify_and_change_msgforward })); |
subroutine => \&verify_and_change_msgforward })); |
my $aboutmeaction= |
if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) { |
'/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
my $aboutmeaction = '/adm/'.$domain.'/'.$user.'/aboutme'; |
push (@Options,{ action => 'none', |
push (@Options,{ action => 'none', |
linktext => |
linktext => |
q{Edit the 'About Me' Personal Information Screen}, |
q{Edit the 'About Me' Personal Information Screen}, |
help => 'Prefs_About_Me', |
help => 'Prefs_About_Me', |
href => $aboutmeaction}); |
href => $aboutmeaction}); |
|
} |
push (@Options,({ action => 'changecolors', |
push (@Options,({ action => 'changecolors', |
linktext => 'Change Color Scheme', |
linktext => 'Change Color Scheme', |
href => '/adm/preferences', |
href => '/adm/preferences', |