--- loncom/interface/lonquickgrades.pm	2003/06/25 18:46:09	1.18
+++ loncom/interface/lonquickgrades.pm	2003/06/25 19:01:23	1.19
@@ -135,7 +135,6 @@ HEADER
         {
             # Get number of correct, incorrect parts
             my $parts = $curRes->parts();
-            $totalParts += $curRes->countParts();
             my $partsRight = 0;
 	    my $partsCount = 0;
             my $stack = $iterator->getStack();
@@ -145,11 +144,12 @@ HEADER
 		    my $score = $curRes->weight($part) * $curRes->awarded($part);
 		    $partsRight += $score;
 		    $totalRight += $score;
-		    $partsCount += $curRes->weight();
+		    $partsCount += $curRes->weight($part);
 
 		    if ($curRes->opendate($part) < $now) {
 			$totalPossible += $curRes->weight();
 		    }
+		    $totalParts += $curRes->weight($part);
 		} else {
 		    my $status = $curRes->getCompletionStatus($part);
 		    my $thisright = 0;
@@ -164,6 +164,7 @@ HEADER
 		    }
 		    
 		    my $dateStatus = $curRes->getDateStatus($part);
+		    $totalParts++;
 		    if ($curRes->opendate($part) < $now) {
 			$totalPossible++;
 		    }
@@ -171,7 +172,7 @@ HEADER
             }
 
             if ($depth == 1) { # in top-level only
-		$topLevelParts += scalar(@{$parts});
+		$topLevelParts += $partsCount;
 		$topLevelRight += $partsRight;
 		$r->print($curRes->compTitle() . '<br>');
 	    }