Centralize rounding decisions, so we round symmetrically.

[foosball] / www / assess-single.pl

diff --git a/www/assess-single.pl b/www/assess-single.pl
index 4a7d5a0fe0456860846e29554f1b41dbc9f88021..1d5cf563544f1554a7b247f1cc2188a1fdbde2f6 100755 (executable)
--- a/www/assess-single.pl
+++ b/www/assess-single.pl
@@ -34,8 +34,8 @@ while (<ASSESS>) {
        push @results10, {
                score => $score,
                prob => (sprintf "%.3f", $prob),
-               rdiff1 => (sprintf "%+d", int($rdiff1+0.5)),
-               rdiff2 => (sprintf "%+d", int($rdiff2+0.5)),
+               rdiff1 => (sprintf "%+d", foosball::round($rdiff1)),
+               rdiff2 => (sprintf "%+d", foosball::round($rdiff2)),
        };
 }
 
@@ -49,8 +49,8 @@ while (<ASSESS>) {
        push @results7, {
                score => $score,
                prob => (sprintf "%.3f", $prob),
-               rdiff1 => (sprintf "%+d", int($rdiff1+0.5)),
-               rdiff2 => (sprintf "%+d", int($rdiff2+0.5)),
+               rdiff1 => (sprintf "%+d", foosball::round($rdiff1)),
+               rdiff2 => (sprintf "%+d", foosball::round($rdiff2)),
        };
 }
 
@@ -59,8 +59,8 @@ print CGI->header(-type=>'application/xhtml+xml');
 my $doc = XML::Template::process_file('assess.xml', {
        'username1' => $username1,
        'username2' => $username2,
-       'rating1' => int($rating1+0.5),
-       'rating2' => int($rating2+0.5),
+       'rating1' => foosball::round($rating1),
+       'rating2' => foosball::round($rating2),
        '#results10' => XML::Template::alternate('tr/class', \@results10, 'odd', 'even'),
        '#results7' => XML::Template::alternate('tr/class', \@results7, 'odd', 'even'),
 });