loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.496, 2019/01/08 23:40:16	version 1.498, 2019/08/06 15:54:37
Line 448 sub secondary_menu {	Line 448 sub secondary_menu {
$showresv = 1;	$showresv = 1;
}	}
}	}
my %groups = &Apache::lonnet::get_active_groups(	if ($env{'request.course.groups'} ne '') {
$env{'user.domain'}, $env{'user.name'},$cdom,$cnum);	foreach my $group (split(/:/,$env{'request.course.groups'}) {
if (%groups) {	next unless ($group =~ /^\w+$/);
foreach my $group (keys(%groups)) {
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) {