version 1.114, 2018/11/13 03:59:00
|
version 1.116, 2020/05/25 04:17:47
|
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; |