--- loncom/interface/lonquickgrades.pm 2003/11/21 18:21:02 1.30 +++ loncom/interface/lonquickgrades.pm 2005/01/01 18:54:52 1.34 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.30 2003/11/21 18:21:02 albertel Exp $ +# $Id: lonquickgrades.pm,v 1.34 2005/01/01 18:54:52 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -150,8 +150,11 @@ HEADER # it's an "attempted" point if ($curRes->problemstatus($part) eq 'no' && ($dateStatus != $curRes->ANSWER_OPEN)) { - $partsAttempted += $curRes->weight($part); - $totalAttempted += $partsAttempted; + my $status = $curRes->simpleStatus($part); + if ($status == $curRes->ATTEMPTED) { + $partsAttempted += $curRes->weight($part); + $totalAttempted += $partsAttempted; + } } else { $score = $curRes->weight($part) * $curRes->awarded($part); } @@ -167,8 +170,7 @@ HEADER my $status = $curRes->simpleStatus($part); my $thisright = 0; $partsCount++; - if ($status == $curRes->CORRECT || - $status == $curRes->INCORRECT ) { + if ($status == $curRes->CORRECT ) { $partsRight++; $totalRight++; $thisright = 1; @@ -271,20 +273,19 @@ HEADER $r->print("$topLevelRight / $topLevelParts"); } - my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct"); - - $title = $showPoints ? "Points" : "Parts Done"; - - $r->print("