loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.369.2.44, 2013/08/08 02:24:02	version 1.369.2.45, 2013/08/08 02:31:11
Line 352 sub secondary_menu {	Line 352 sub secondary_menu {
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec);	my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec);
my $author = &getauthor();	my $author = &getauthor();

my ($cdom,$cnum,$showsyllabus,$showfeeds);	my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv);
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 369 sub secondary_menu {	Line 369 sub secondary_menu {
$showfeeds = 1;	$showfeeds = 1;
}	}
}	}
	unless ($canmgr) {
	my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
	if (keys(%slots) > 0) {
	$showresv = 1;
	}
	}
}	}

my ($canmodifycoauthor);	my ($canmodifycoauthor);
Line 409 sub secondary_menu {	Line 415 sub secondary_menu {
&& ($canmodifyuser \|\| !$canviewroster);	&& ($canmodifyuser \|\| !$canviewroster);
next if $$menuitem[4] eq 'mgr'	next if $$menuitem[4] eq 'mgr'
&& !$canmgr;	&& !$canmgr;
next if $$menuitem[4] eq 'nmgr'	next if $$menuitem[4] eq 'showresv'
&& $canmgr;	&& !$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 'opa'