X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FSt.pm;h=562e4678cc2ab085ad24e247e8e635dd2cba06f0;hb=4fffff7c5a0669e2860cf1428f8f4c4f9fddabea;hp=02e377da57baad96bdaf98932da3f3501c007c55;hpb=1c0a51676138d88706e13a41746a7c91c53d75b5;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page/St.pm b/lib/Gruntmaster/Page/St.pm index 02e377d..562e467 100644 --- a/lib/Gruntmaster/Page/St.pm +++ b/lib/Gruntmaster/Page/St.pm @@ -24,9 +24,17 @@ sub calc_score{ $score = ($totaltime - $timetaken) / $totaltime * $score; $score -= $tries / 10 * $mxscore; $score = $mxscore * 3 / 10 if $score < $mxscore * 3 / 10; - int $score + int $score + 0.5 } +sub usname ($) { + local $Gruntmaster::Data::contest; + my $user = shift; + my $name = user_name $user; + "$name ($user)" +} + + sub _generate{ my ($self, $htc, $lang, $env, $ct) = @_; debug $env => "language is '$lang' and contest is '$ct'"; @@ -58,7 +66,7 @@ sub _generate{ my @st = sort { $b->{score} <=> $a->{score} or $a->{user} cmp $b->{user}} map { my $user = $_; +{ - user => $user, + user => usname $user, score => sum (values $scores{$user}), scores => [map { $scores{$user}{$_} // '-'} @problems], problems => $Gruntmaster::Data::contest,