loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.498, 2019/08/06 15:54:37	version 1.499, 2019/08/06 23:10:18
Line 449 sub secondary_menu {	Line 449 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+$/);	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);