loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.315.2.14, 2011/10/21 17:14:00	version 1.315.2.15.2.1, 2012/03/02 14:48:19
Line 783 ENDREALRES	Line 783 ENDREALRES
}	}
}	}
if ($env{'request.uri'} =~ /^\/res/) {	if ($env{'request.uri'} =~ /^\/res/) {
my $icontext = &mt('Print');	if (($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') \|\|
$menuitems .= (<<ENDMENUITEMS);	($env{'request.role'} =~ /^cc/)) {
	my $icontext = &mt('Print');
	$menuitems .= (<<ENDMENUITEMS);
s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icontext	s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icontext
ENDMENUITEMS	ENDMENUITEMS
	}
}	}
my $buttons='';	my $buttons='';
foreach (split(/\n/,$menuitems)) {	foreach (split(/\n/,$menuitems)) {
Line 2234 sub required_privs {	Line 2237 sub required_privs {
'/adm/statistics' => 'vgr',	'/adm/statistics' => 'vgr',
};	};
unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {	unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
$privs->{'/adm/classcalc'} => 'vgr',	$privs->{'/adm/classcalc'} = 'vgr',
$privs->{'/adm/assesscalc'} => 'vgr',	$privs->{'/adm/assesscalc'} = 'vgr',
$privs->{'/adm/studentcalc'} => 'vgr';	$privs->{'/adm/studentcalc'} = 'vgr';
}	}
return $privs;	return $privs;
}	}