--- loncom/interface/lonmenu.pm 2008/12/17 13:02:37 1.250
+++ loncom/interface/lonmenu.pm 2009/02/13 20:20:30 1.252
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.250 2008/12/17 13:02:37 harmsja Exp $
+# $Id: lonmenu.pm,v 1.252 2009/02/13 20:20:30 schafran Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1228,7 +1228,22 @@ sub rawconfig {
my @tools = ('aboutme','blog','portfolio');
if (grep(/^\Q$prt\E$/,@tools)) {
if (!&Apache::lonnet::usertools_access($env{'user.name'},
- $env{'user.domain'},$prt)) {
+ $env{'user.domain'},
+ $prt,undef,'tools')) {
+ $output.=&clear($row,$col);
+ next;
+ }
+ } elsif ($prt eq 'reqcrs') {
+ my $showreqcrs = 0;
+ foreach my $type ('official','unofficial') {
+ if (&Apache::lonnet::usertools_access($env{'user.name'},
+ $env{'user.domain'},
+ $type,undef,'requestcourses')) {
+ $showreqcrs = 1;
+ last;
+ }
+ }
+ if (!$showreqcrs) {
$output.=&clear($row,$col);
next;
}
@@ -1459,7 +1474,7 @@ function set_bookmark() {
+"type='text' name='title' size=45 value='"+clienttitle+"' />"
+"
Address: