version 1.18, 2002/03/21 17:53:27
|
version 1.19, 2002/05/06 14:20:27
|
Line 106 sub openmenu {
|
Line 106 sub openmenu {
|
} |
} |
|
|
sub rawconfig { |
sub rawconfig { |
|
my $r = shift; |
my $output="swmenu=".&openmenu(); |
my $output="swmenu=".&openmenu(); |
my $uname=$ENV{'user.name'}; |
my $uname=$ENV{'user.name'}; |
my $udom=$ENV{'user.domain'}; |
my $udom=$ENV{'user.domain'}; |
Line 149 sub rawconfig {
|
Line 150 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/)) { |
|
# Check that we are on the correct machine |
my ($cadom,$caname)= |
my ($cadom,$caname)= |
($ENV{'request.role'}=~/(\w+)\/(\w+)$/); |
($ENV{'request.role'}=~/(\w+)\/(\w+)$/); |
$output.=switch($caname,$cadom, |
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
$row,$col,$img,$top,$bot,$act); |
if ($home eq $r->dir_config('lonHostID')) { |
|
$output.=switch($caname,$cadom, |
|
$row,$col,$img,$top,$bot,$act); |
|
} |
} elsif ($prt eq 'any') { |
} elsif ($prt eq 'any') { |
$output.=switch($ENV{'user.name'},$ENV{'user.domain'}, |
my $home = &Apache::lonnet::homeserver |
$row,$col,$img,$top,$bot,$act); |
($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); |
|
} |
} |
} |
} |
} |
} |
} |