--- loncom/interface/lonquickgrades.pm 2003/11/21 18:21:02 1.30 +++ loncom/interface/lonquickgrades.pm 2004/07/15 19:20:41 1.31 @@ -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.31 2004/07/15 19:20:41 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); }