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

albertel lon-capa-cvs@mail.lon-capa.org
Sun, 26 Feb 2006 00:30:19 -0000

```albertel		Sat Feb 25 19:30:19 2006 EDT

Modified files:
Log:
- style police

--- 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
#
-# \$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;

```