loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.557, 2024/10/14 02:13:26	version 1.560, 2025/01/07 22:21:56
Line 615 sub secondary_menu {	Line 615 sub secondary_menu {
&& !$env{'request.course.id'};	&& !$env{'request.course.id'};
next if $$menuitem[4] =~ /^crsedit/	next if $$menuitem[4] =~ /^crsedit/
&& (!$canedit && !$canvieweditor);	&& (!$canedit && !$canvieweditor);
	next if $$menuitem[4] eq 'crseditCourse'
	&& ($crstype eq 'Community');
	next if $$menuitem[4] eq 'crseditCommunity'
	&& ($crstype ne 'Community');
next if $$menuitem[4] eq 'nvgr'	next if $$menuitem[4] eq 'nvgr'
&& ($canvgr \|\| $ltiexc{'grades'});	&& ($canvgr \|\| $ltiexc{'grades'});
next if $$menuitem[4] eq 'vgr'	next if $$menuitem[4] eq 'vgr'
Line 2696 sub utilityfunctions {	Line 2700 sub utilityfunctions {
($env{'request.symb'} ne '') &&	($env{'request.symb'} ne '') &&
($env{'request.filename'}=~/$LONCAPA::assess_re/)) {	($env{'request.filename'}=~/$LONCAPA::assess_re/)) {
my $canview;	my $canview;
foreach my $priv ('msg','vgr') {	foreach my $priv ('mgr','vgr') {
$canview = &Apache::lonnet::allowed($priv,$env{'request.course.id'});	$canview = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
if (!$canview && $env{'request.course.sec'} ne '') {	if (!$canview && $env{'request.course.sec'} ne '') {
$canview =	$canview =