loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'