--- loncom/interface/lonpreferences.pm 2008/12/06 20:34:09 1.129
+++ loncom/interface/lonpreferences.pm 2008/12/08 23:09:26 1.131
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.129 2008/12/06 20:34:09 schafran Exp $
+# $Id: lonpreferences.pm,v 1.131 2008/12/08 23:09:26 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -772,8 +772,8 @@ sub msgforwardchanger {
foad => 'Forwarding Address(es)',
noti => 'Notification E-mail Address(es)',
foad_exmpl => 'e.g. userA:domain1,userB:domain2,...',
- mnot => 'E-mail 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 ',
@@ -1799,12 +1799,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.'