[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[albertel]

albertel		Sat Feb 25 19:30:19 2006 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - style police
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.315 loncom/homework/grades.pm:1.316
--- loncom/homework/grades.pm:1.315	Sat Feb 25 15:25:02 2006
+++ loncom/homework/grades.pm	Sat Feb 25 19:30:17 2006
@@ -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 @@
 # 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 @@
         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;