--- loncom/interface/lonquickgrades.pm 2003/11/21 18:21:02 1.30 +++ loncom/interface/lonquickgrades.pm 2004/12/11 23:33:05 1.33 @@ -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.33 2004/12/11 23:33:05 albertel 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; @@ -283,8 +285,6 @@ HEADER $r->print(""); - $navmap->untieHashes(); - return OK; }