loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

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