loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2001/06/08 13:02:44	version 1.6, 2001/06/09 16:05:30
Line 5	Line 5
#	#
# 05/29/00,05/30 Gerd Kortemeyer)	# 05/29/00,05/30 Gerd Kortemeyer)
#	#
# 10/05,05/28,05/30,06/01,06/08 Gerd Kortemeyer	# 10/05,05/28,05/30,06/01,06/08,06/09 Gerd Kortemeyer

package Apache::lonmenu;	package Apache::lonmenu;

Line 107 sub rawconfig {	Line 107 sub rawconfig {
}	}
} elsif ($pro eq 'author') {	} elsif ($pro eq 'author') {
if ($author) {	if ($author) {
	if (($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) {
	my ($cadom,$caname)=
	($ENV{'request.role'}=~/(\w+)\/(\w+)$/);
	$output.=switch($caname,$cadom,
	$row,$col,$img,$top,$bot,$act);
	} elsif ($prt eq 'any') {
	$output.=switch($ENV{'user.name'},$ENV{'user.domain'},
	$row,$col,$img,$top,$bot,$act);
	}
}	}
}	}
} @desklines;	} @desklines;