version 1.342, 2011/01/16 22:45:05
|
version 1.343, 2011/01/17 01:35:32
|
Line 271 sub secondary_menu {
|
Line 271 sub secondary_menu {
|
my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); |
my $canmodifyuser = &Apache::lonnet::allowed('cst', $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); |
my $author = getauthor(); |
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
|
my $author = &getauthor(); |
|
|
my %groups = &Apache::lonnet::get_active_groups( |
my %groups = &Apache::lonnet::get_active_groups( |
$env{'user.domain'}, $env{'user.name'}, |
$env{'user.domain'}, $env{'user.name'}, |
Line 293 sub secondary_menu {
|
Line 294 sub secondary_menu {
|
&& !$canvgr; |
&& !$canvgr; |
next if $$menuitem[4] eq 'cst' |
next if $$menuitem[4] eq 'cst' |
&& !$canmodifyuser; |
&& !$canmodifyuser; |
|
next if $$menuitem[4] eq 'ncst' |
|
&& $canmodifyuser; |
|
next if $$menuitem[4] eq 'mgr' |
|
&& !$canmgr; |
|
next if $$menuitem[4] eq 'nmgr' |
|
&& $canmgr; |
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 'opa' |