version 1.340, 2010/12/02 06:00:12
|
version 1.341, 2011/01/13 19:43:12
|
Line 272 sub secondary_menu {
|
Line 272 sub secondary_menu {
|
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 $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 $author = getauthor(); |
my $author = getauthor(); |
|
|
my $showlink = &show_return_link(); |
my $showlink = &show_return_link(); |
Line 292 sub secondary_menu {
|
Line 293 sub secondary_menu {
|
&& !($env{'request.state'} eq 'construct'); |
&& !($env{'request.state'} eq 'construct'); |
next if $$menuitem[4] =~ /^mdc/ |
next if $$menuitem[4] =~ /^mdc/ |
&& !$canedit; |
&& !$canedit; |
next if $$menuitem[4] eq 'mdcCourse' |
next if $$menuitem[4] eq 'nvgr' |
&& $crstype eq 'Community'; |
&& $canvgr; |
next if $$menuitem[4] eq 'mdcCommunity' |
next if $$menuitem[4] eq 'vgr' |
&& $crstype ne 'Community'; |
&& !$canvgr; |
next if $$menuitem[4] eq 'cst' |
next if $$menuitem[4] eq 'cst' |
&& !$canmodifyuser; |
&& !$canmodifyuser; |
next if $$menuitem[4] eq 'whn' |
next if $$menuitem[4] eq 'whn' |