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)),
};
}
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)),
};
}
my $doc = XML::Template::process_file('assess.xml', {
'username1' => $username1,
'username2' => $username2,
- 'rating1' => int($rating1+0.5),
- 'rating2' => int($rating2+0.5),
- '#results10' => \@results10,
- '#results7' => \@results7,
+ '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'),
});
print $doc->toString;