[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

[raeburn]

raeburn		Tue Dec  9 04:49:02 2008 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  Bug 5839 (Ability to disable About-Me page and Portfolio).
  - Display of link to portfolio or blog in Main Menu and Remote Control determined by
    &Apache::lonnet::usertools_access(), not just by $env{'environment.tools.portfolio'} or 
    $env{'environment.tools.blog'}.
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.248 loncom/interface/lonmenu.pm:1.249
--- loncom/interface/lonmenu.pm:1.248	Mon Dec  8 23:07:03 2008
+++ loncom/interface/lonmenu.pm	Tue Dec  9 04:49:01 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.248 2008/12/08 23:07:03 raeburn Exp $
+# $Id: lonmenu.pm,v 1.249 2008/12/09 04:49:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1227,8 +1227,8 @@
         } elsif ($pro eq 'tools') {
             my @tools = ('aboutme','blog','portfolio');
             if (grep(/^\Q$prt\E$/,@tools)) {
-                if (defined($env{'environment.tools.'.$prt}) &&
-                   ($env{'environment.tools.'.$prt} == 0)) {
+                if (!&Apache::lonnet::usertools_access($env{'user.name'},
+                                                       $env{'user.domain'},$prt)) {
                     $output.=&clear($row,$col);
                     next;
                 }