[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm

bowersj2 lon-capa-cvs@mail.lon-capa.org
Wed, 25 Jun 2003 18:46:09 -0000


bowersj2		Wed Jun 25 14:46:09 2003 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  Oops. This should be much closer; still need to test it with different
  weights and fractional awards.
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.17 loncom/interface/lonquickgrades.pm:1.18
--- loncom/interface/lonquickgrades.pm:1.17	Wed Jun 25 14:30:27 2003
+++ loncom/interface/lonquickgrades.pm	Wed Jun 25 14:46:09 2003
@@ -142,11 +142,11 @@
             
             for my $part (@{$parts}) {
 		if ($showPoints) {
-		    my $score = $curRes->weight() * $curRes->awarded();
+		    my $score = $curRes->weight($part) * $curRes->awarded($part);
 		    $partsRight += $score;
 		    $totalRight += $score;
 		    $partsCount += $curRes->weight();
-		    
+
 		    if ($curRes->opendate($part) < $now) {
 			$totalPossible += $curRes->weight();
 		    }