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) { |