version 1.113, 2017/12/31 15:49:03
|
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; |
Line 444 sub getData {
|
Line 453 sub getData {
|
if ($curRes == $iterator->BEGIN_MAP()) {$depth++;} |
if ($curRes == $iterator->BEGIN_MAP()) {$depth++;} |
if ($curRes == $iterator->END_MAP()) { $depth--; } |
if ($curRes == $iterator->END_MAP()) { $depth--; } |
|
|
if (ref($curRes) && $curRes->is_gradable() && !$curRes->randomout) |
if (ref($curRes) && $curRes->is_gradable() && !$curRes->randomout && |
|
($curRes->deeplink ne 'absent')) |
{ |
{ |
# Get number of correct, incorrect parts |
# Get number of correct, incorrect parts |
my $parts = $curRes->parts(); |
my $parts = $curRes->parts(); |