Centralize rounding decisions, so we round symmetrically.

[foosball] / www / assess-double.pl

diff --git a/www/assess-double.pl b/www/assess-double.pl
index bc600694a2b9efe7963fd269b4cb8bed12ff9dc0..25c79687287739ed2e886ff55e9dfb6c076e8816 100755 (executable)
--- a/www/assess-double.pl
+++ b/www/assess-double.pl
@@ -44,10 +44,10 @@ while (<ASSESS>) {
        push @results10, {
                score => $score,
                prob => (sprintf "%.3f", $prob),
-               rdiff1 => (sprintf "%+d", int($rdiff1+0.5)),
-               rdiff2 => (sprintf "%+d", int($rdiff2+0.5)),
-               rdiff3 => (sprintf "%+d", int($rdiff3+0.5)),
-               rdiff4 => (sprintf "%+d", int($rdiff4+0.5)),
+               rdiff1 => (sprintf "%+d", foosball::round($rdiff1)),
+               rdiff2 => (sprintf "%+d", foosball::round($rdiff2)),
+               rdiff3 => (sprintf "%+d", foosball::round($rdiff3)),
+               rdiff4 => (sprintf "%+d", foosball::round($rdiff4)),
        };
 }
 
@@ -61,10 +61,10 @@ while (<ASSESS>) {
        push @results7, {
                score => $score,
                prob => (sprintf "%.3f", $prob),
-               rdiff1 => (sprintf "%+d", int($rdiff1+0.5)),
-               rdiff2 => (sprintf "%+d", int($rdiff2+0.5)),
-               rdiff3 => (sprintf "%+d", int($rdiff3+0.3)),
-               rdiff4 => (sprintf "%+d", int($rdiff4+0.4)),
+               rdiff1 => (sprintf "%+d", foosball::round($rdiff1)),
+               rdiff2 => (sprintf "%+d", foosball::round($rdiff2)),
+               rdiff3 => (sprintf "%+d", foosball::round($rdiff3)),
+               rdiff4 => (sprintf "%+d", foosball::round($rdiff4)),
        };
 }
 
@@ -75,11 +75,11 @@ my $doc = XML::Template::process_file('assess-double.xml', {
        'username2' => $username1_2,
        'username3' => $username2_1,
        'username4' => $username2_2,
-       'rating1' => int($rating1_1+0.5),
-       'rating2' => int($rating1_2+0.5),
-       'rating3' => int($rating2_1+0.5),
-       'rating4' => int($rating2_2+0.5),
-       '#results10' => \@results10,
-       '#results7' => \@results7,
+       'rating1' => foosball::round($rating1_1),
+       'rating2' => foosball::round($rating1_2),
+       'rating3' => foosball::round($rating2_1),
+       'rating4' => foosball::round($rating2_2),
+       '#results10' => XML::Template::alternate('tr/class', \@results10, 'odd', 'even'),
+       '#results7' => XML::Template::alternate('tr/class', \@results7, 'odd', 'even'),
 });
 print $doc->toString;