loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.497, 2019/08/06 14:44:36	version 1.498, 2019/08/06 15:54:37
Line 450 sub secondary_menu {	Line 450 sub secondary_menu {
}	}
if ($env{'request.course.groups'} ne '') {	if ($env{'request.course.groups'} ne '') {
foreach my $group (split(/:/,$env{'request.course.groups'}) {	foreach my $group (split(/:/,$env{'request.course.groups'}) {
	next unless ($group =~ /^\w+$/);
my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});	my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});
shift(@privs);	shift(@privs);
if (@privs) {	if (@privs) {