version 1.28, 2002/11/18 15:23:32
|
version 1.29, 2002/12/06 17:49:49
|
Line 161 sub rawconfig {
|
Line 161 sub rawconfig {
|
} |
} |
} elsif ($pro eq 'author') { |
} elsif ($pro eq 'author') { |
if ($author) { |
if ($author) { |
if (($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) { |
if ((($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) || |
|
(($prt eq 'rau') && ($ENV{'request.role'}=~/^au/))) { |
# Check that we are on the correct machine |
# Check that we are on the correct machine |
my ($cadom,$caname)= |
my $cadom=$requested_domain; |
|
my $caname=$ENV{'user.name'}; |
|
if ($prt eq 'rca') { |
|
($cadom,$caname)= |
($ENV{'request.role'}=~/(\w+)\/(\w+)$/); |
($ENV{'request.role'}=~/(\w+)\/(\w+)$/); |
|
} |
|
$act =~ s/\$caname/$caname/g; |
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
if ($home eq $r->dir_config('lonHostID')) { |
if ($home eq $r->dir_config('lonHostID')) { |
$output.=switch($caname,$cadom, |
$output.=switch($caname,$cadom, |
$row,$col,$img,$top,$bot,$act,$desc); |
$row,$col,$img,$top,$bot,$act,$desc); |
} |
} |
} elsif ($prt eq 'any') { |
|
my $home = &Apache::lonnet::homeserver |
|
($ENV{'user.name'},$ENV{'user.domain'}); |
|
if ($home eq $r->dir_config('lonHostID')) { |
|
$output.=switch |
|
($ENV{'user.name'},$ENV{'user.domain'}, |
|
$row,$col,$img,$top,$bot,$act,$desc); |
|
} |
|
} |
} |
} |
} |
} |
} |