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