X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FSt.pm;h=22d6e30ca323697feabf8ee7e8d769a9994a7566;hb=e40d63cddada5e7792c582ff6f52766946bb485e;hp=5e256b1c8b51b945f3d8d9ccf63553a08f47f374;hpb=c9e7fddeb9324857557b0db73c10b80436a4ff4f;p=gruntmaster-page.git diff --git a/lib/Gruntmaster/Page/St.pm b/lib/Gruntmaster/Page/St.pm index 5e256b1..22d6e30 100644 --- a/lib/Gruntmaster/Page/St.pm +++ b/lib/Gruntmaster/Page/St.pm @@ -1,11 +1,6 @@ package Gruntmaster::Page::St; -use 5.014000; -use strict; -use warnings; use Gruntmaster::Page::Base st => 'Standings'; -our @ISA = qw/Gruntmaster::Page::Base/; -our $VERSION = '0.001'; use constant LEVEL_VALUES => { beginner => 100, @@ -59,6 +54,7 @@ sub _generate{ my $user = $_; +{ user => $user, + name => do {local $Gruntmaster::Data::contest; user_name $user}, score => sum (values $scores{$user}), scores => [map { $scores{$user}{$_} // '-'} @problems], problems => $Gruntmaster::Data::contest,