--- loncom/interface/lonquickgrades.pm 2005/12/20 15:02:13 1.37 +++ 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.37 2005/12/20 15:02:13 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;