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

[bowersj2]

bowersj2		Sun Feb 26 21:11:28 2006 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  Change lonquickgrades to use &compute_points.
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.37 loncom/interface/lonquickgrades.pm:1.38
--- loncom/interface/lonquickgrades.pm:1.37	Tue Dec 20 10:02:13 2005
+++ loncom/interface/lonquickgrades.pm	Sun Feb 26 21:11:27 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.37 2005/12/20 15:02:13 albertel Exp $
+# $Id: lonquickgrades.pm,v 1.38 2006/02/27 02:11:27 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,6 +35,7 @@
 use Apache::loncommon;
 use Apache::lonlocal;
 use Apache::lonnet;
+use Apache::grades;
 
 sub handler {
     my $r = shift;
@@ -157,7 +158,7 @@
 			    $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;