X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FSt.pm;h=562e4678cc2ab085ad24e247e8e635dd2cba06f0;hb=4fffff7c5a0669e2860cf1428f8f4c4f9fddabea;hp=fb7b5f378a504ad3cb6fc1c44a9f7f61d7f051d1;hpb=2417f4a7eaadca43d61a24329ac9230e8af16736;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page/St.pm b/lib/Gruntmaster/Page/St.pm index fb7b5f3..562e467 100644 --- a/lib/Gruntmaster/Page/St.pm +++ b/lib/Gruntmaster/Page/St.pm @@ -10,7 +10,7 @@ our $VERSION = '0.001'; use constant LEVEL_VALUES => { beginner => 100, easy => 250, - medium => 600, + medium => 500, hard => 1000, }; @@ -27,6 +27,14 @@ sub calc_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,