|
version 1.453, 2016/10/06 20:03:34
|
version 1.454, 2016/10/11 22:58:55
|
|
Line 389 sub secondary_menu {
|
Line 389 sub secondary_menu {
|
| 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 $canviewusers = &Apache::lonnet::allowed('vcl', $crs_sec); |
| my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec); |
my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec); |
| |
my $canviewpara = &Apache::lonnet::allowed('vpa', $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); |
| my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
|
Line 467 sub secondary_menu {
|
Line 468 sub secondary_menu {
|
| && !$showresv; |
&& !$showresv; |
| next if $$menuitem[4] eq 'whn' |
next if $$menuitem[4] eq 'whn' |
| && !$canviewwnew; |
&& !$canviewwnew; |
| next if $$menuitem[4] eq 'opa' |
next if $$menuitem[4] eq 'params' |
| && !$canmodpara; |
&& (!$canmodpara && !$canviewpara); |
| next if $$menuitem[4] =~ /showgroups$/ |
next if $$menuitem[4] =~ /showgroups$/ |
| && !$canviewgrps |
&& !$canviewgrps |
| && !$grouptools; |
&& !$grouptools; |
![[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