loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.114, 2018/11/13 03:59:00	version 1.115, 2020/05/20 16:55:52
Line 293 sub startGradeScreen {	Line 293 sub startGradeScreen {
$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals';	$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals';
my $showCategories=	my $showCategories=
$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'categories';	$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'categories';

	my $allowed_to_view = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
	if ((!$allowed_to_view) && ($env{'request.course.sec'} ne '')) {
	$allowed_to_view = &Apache::lonnet::allowed('vgr',
	"$env{'request.course.id'}/$env{'request.course.sec'}");
	}

my $allowed_to_view = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});	my $allowed_to_edit = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
my $allowed_to_edit = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});	if (!$allowed_to_edit) && ($env{'request.course.sec'} ne '')) {
	$allowed_to_edit = &Apache::lonnet::allowed('mgr',
	"$env{'request.course.id'}/$env{'request.course.sec'}");
	}

if ($allowed_to_view) {	if ($allowed_to_view) {
my @notes;	my @notes;