|
version 1.248, 2008/12/08 23:07:03
|
version 1.249, 2008/12/09 04:49:01
|
|
Line 1227 sub rawconfig {
|
Line 1227 sub rawconfig {
|
| } elsif ($pro eq 'tools') { |
} elsif ($pro eq 'tools') { |
| my @tools = ('aboutme','blog','portfolio'); |
my @tools = ('aboutme','blog','portfolio'); |
| if (grep(/^\Q$prt\E$/,@tools)) { |
if (grep(/^\Q$prt\E$/,@tools)) { |
| if (defined($env{'environment.tools.'.$prt}) && |
if (!&Apache::lonnet::usertools_access($env{'user.name'}, |
| ($env{'environment.tools.'.$prt} == 0)) { |
$env{'user.domain'},$prt)) { |
| $output.=&clear($row,$col); |
$output.=&clear($row,$col); |
| next; |
next; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface