--- loncom/interface/lonpreferences.pm 2008/12/03 20:29:40 1.128 +++ loncom/interface/lonpreferences.pm 2008/12/23 19:22:13 1.132 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.128 2008/12/03 20:29:40 droeschl Exp $ +# $Id: lonpreferences.pm,v 1.132 2008/12/23 19:22:13 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -193,6 +193,7 @@ sub verify_and_change_languages { &Apache::lonnet::delenv('environment\.languages'); $message=&mt('Reset preferred language.'); } + &Apache::loncommon::flush_langs_cache($user,$domain); print_main_menu($r, $message); # $r->print(< 'Forwarding Address(es)', noti => 'Notification E-mail Address(es)', foad_exmpl => 'e.g. userA:domain1,userB:domain2,...', - mnot => 'Email Address(es) which should be notified about new LON-CAPA messages', # old: 'Message Notification Email Address(es)', + mnot => 'E-mail Address(es) which should be notified about new LON-CAPA messages', + # old: 'Message Notification Email Address(es)', mnot_exmpl => 'e.g. joe@doe.com', chg => 'Change', email => 'The e-mail address entered in row ', @@ -1798,12 +1800,16 @@ sub print_main_menu { # build the data structure for menu generation my $aboutmeurl='/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; my $role = ($env{'user.adv'} ? 'Roles' : 'Course'); +my %permissions; +if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) { + $permissions{'aboutme'} = 'F'; +} my @menu= ({ categorytitle=>'Personal Data', items =>[ { linktext => 'About Me', url => $aboutmeurl, - permission => 'F', + permission => $permissions{'aboutme'}, #help => 'Prefs_About_Me', icon => 'system-users.png', linktitle => 'Edit information about yourself that should be displayed on your public profile.' @@ -2119,7 +2125,7 @@ sub handler2 { })); push (@Options,({ action => 'changemsgforward', - linktext => 'Change Message Forwarding and Notification Email Addresses', + linktext => 'Change Message Forwarding and Notification E-mail Addresses', href => '/adm/preferences', help => 'Prefs_Messages', breadcrumb =>