|
version 1.496, 2019/01/08 23:40:16
|
version 1.497, 2019/08/06 14:44:36
|
|
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) { |
|
| 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) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface