loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

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',