loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.80, 2003/07/05 10:07:11	version 1.81, 2003/07/24 17:53:59
Line 714 sub rawconfig {	Line 714 sub rawconfig {
$output.=&secondlevel(	$output.=&secondlevel(
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);
}	}
} elsif (($pro=~/p(\w+)/) && ($prt)) {	} elsif (($pro=~/^p(\w+)/) && ($prt)) {
if (&Apache::lonnet::allowed($1,$prt)) {	if (&Apache::lonnet::allowed($1,$prt)) {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
}	}
Line 722 sub rawconfig {	Line 722 sub rawconfig {
if ($ENV{'request.course.fn'}) {	if ($ENV{'request.course.fn'}) {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
}	}
	} elsif ($pro =~ /^course_(.*)$/) {
	# Check for permissions inside of a course
	if (($ENV{'request.course.id'}) &&
	(&Apache::lonnet::allowed($1,$ENV{'request.course.id'}.
	($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))
	)) {
	$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
	}
} 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/)) \|\|