version 1.250, 2008/12/17 13:02:37
|
version 1.251, 2009/02/08 20:50:19
|
Line 1228 sub rawconfig {
|
Line 1228 sub rawconfig {
|
my @tools = ('aboutme','blog','portfolio'); |
my @tools = ('aboutme','blog','portfolio'); |
if (grep(/^\Q$prt\E$/,@tools)) { |
if (grep(/^\Q$prt\E$/,@tools)) { |
if (!&Apache::lonnet::usertools_access($env{'user.name'}, |
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); |
$output.=&clear($row,$col); |
next; |
next; |
} |
} |