--- loncom/homework/grades.pm 2006/02/25 20:25:02 1.315 +++ loncom/homework/grades.pm 2006/02/26 00:30:17 1.316 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.315 2006/02/25 20:25:02 bowersj2 Exp $ +# $Id: grades.pm,v 1.316 2006/02/26 00:30:17 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -471,8 +471,7 @@ sub jscriptNform { # Given the score (as a number [0-1] and the weight) what is the final # point value? This function will round to the nearest tenth, third, # or quarter if one of those is within the tolerance of .00001. -sub compute_points -{ +sub compute_points { my ($score, $weight) = @_; my $tolerance = .00001; @@ -483,8 +482,7 @@ sub compute_points my ($factor) = @_; my $num = ($points * $factor) + $tolerance; my $floored_num = floor($num); - if ($num - $floored_num < 2 * $tolerance * $factor) - { + if ($num - $floored_num < 2 * $tolerance * $factor) { return $floored_num / $factor; } return $points;