[LON-CAPA-cvs] cvs: loncom(version_2_8_X) /interface lonpreferences.pm

[raeburn]

raeburn		Fri Dec 12 19:57:58 2008 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/interface	lonpreferences.pm 
  Log:
  - Backport 1.131.
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.125 loncom/interface/lonpreferences.pm:1.125.2.1
--- loncom/interface/lonpreferences.pm:1.125	Fri Jul 18 12:36:11 2008
+++ loncom/interface/lonpreferences.pm	Fri Dec 12 19:57:58 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.125 2008/07/18 12:36:11 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.125.2.1 2008/12/12 19:57:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1782,13 +1782,14 @@
                             text => 'Change Message Forwarding/Notification'},
                       printmenu => 'no',
                       subroutine => \&verify_and_change_msgforward }));
-    my $aboutmeaction=
-        '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';
-    push (@Options,{ action => 'none', 
-                     linktext =>
-                         q{Edit the 'About Me' Personal Information Screen},
-		     help => 'Prefs_About_Me',
-                     href => $aboutmeaction});
+    if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) {
+        my $aboutmeaction = '/adm/'.$domain.'/'.$user.'/aboutme';
+        push (@Options,{ action => 'none', 
+                         linktext =>
+                             q{Edit the 'About Me' Personal Information Screen},
+	   	         help => 'Prefs_About_Me',
+                         href => $aboutmeaction});
+    }
     push (@Options,({ action => 'changecolors',
                       linktext => 'Change Color Scheme',
                       href => '/adm/preferences',