--- loncom/interface/lonquickgrades.pm	2005/04/07 06:56:23	1.36
+++ loncom/interface/lonquickgrades.pm	2006/02/27 19:40:43	1.39
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.36 2005/04/07 06:56:23 albertel Exp $
+# $Id: lonquickgrades.pm,v 1.39 2006/02/27 19:40:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,6 +35,7 @@ use POSIX;
 use Apache::loncommon;
 use Apache::lonlocal;
 use Apache::lonnet;
+use Apache::grades;
 
 sub handler {
     my $r = shift;
@@ -157,7 +158,7 @@ HEADER
 			    $totalAttempted += $partsAttempted;
 			}
 		    } else {
-			$score = $curRes->weight($part) * $curRes->awarded($part);
+			$score = &Apache::grades::compute_points($curRes->weight($part), $curRes->awarded($part));
 		    }
 		    $partsRight += $score;
 		    $totalRight += $score;
@@ -171,7 +172,8 @@ HEADER
 		    my $status = $curRes->simpleStatus($part);
 		    my $thisright = 0;
 		    $partsCount++;
-		    if ($status == $curRes->CORRECT ) {
+		    if ($status == $curRes->CORRECT ||
+			$status == $curRes->PARTIALLY_CORRECT ) {
 			$partsRight++;
 			$totalRight++;
 			$thisright = 1;