loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'