|
version 1.452, 2016/08/15 15:52:16
|
version 1.453, 2016/10/06 20:03:34
|
|
Line 386 sub secondary_menu {
|
Line 386 sub secondary_menu {
|
| undef($canviewroster); |
undef($canviewroster); |
| } |
} |
| my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec); |
my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec); |
| my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); |
my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); |
| |
my $canviewusers = &Apache::lonnet::allowed('vcl', $crs_sec); |
| my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec); |
my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec); |
| my $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec); |
my $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec); |
| my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec); |
my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec); |
|
Line 457 sub secondary_menu {
|
Line 458 sub secondary_menu {
|
| next if $$menuitem[4] eq 'vgr' |
next if $$menuitem[4] eq 'vgr' |
| && !$canvgr; |
&& !$canvgr; |
| next if $$menuitem[4] eq 'cst' |
next if $$menuitem[4] eq 'cst' |
| && !$canmodifyuser; |
&& !$canmodifyuser && !$canviewusers; |
| next if $$menuitem[4] eq 'ncst' |
next if $$menuitem[4] eq 'ncst' |
| && ($canmodifyuser || !$canviewroster); |
&& ($canmodifyuser || $canviewusers || !$canviewroster); |
| next if $$menuitem[4] eq 'mgr' |
next if $$menuitem[4] eq 'mgr' |
| && !$canmgr; |
&& !$canmgr; |
| next if $$menuitem[4] eq 'showresv' |
next if $$menuitem[4] eq 'showresv' |
![[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