--- loncom/interface/lonquickgrades.pm 2003/06/25 19:29:43 1.20 +++ loncom/interface/lonquickgrades.pm 2003/07/17 14:31:17 1.21 @@ -63,7 +63,11 @@ sub real_handler { &Apache::loncommon::no_cache($r); $r->send_http_header; - my $showPoints = $ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard'; + my $showPoints = 1; + if (defined($ENV{'course.'.$ENV{'request.course.id'}.'.grading'}) && + $ENV{'course.'.$ENV{'request.course.id'}.'.grading'} ne 'standard') { + $showPoints = 0; + } # Create the nav map my $navmap = Apache::lonnavmaps::navmap->new( @@ -135,6 +139,9 @@ HEADER my $stack = $iterator->getStack(); for my $part (@{$parts}) { + if ($curRes->getCompletionStatus($part) == $curRes->EXCUSED()) { + next; + } if ($showPoints) { my $score = $curRes->weight($part) * $curRes->awarded($part); $partsRight += $score; @@ -151,7 +158,6 @@ HEADER $partsCount++; if ($status == $curRes->CORRECT || $status == $curRes->CORRECT_BY_OVERRIDE || - $status == $curRes->EXCUSED || $status == $curRes->ANSWER_SUBMITTED) { $partsRight++; $totalRight++;