loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);
}
}	}
}	}
}	}