X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FSt.pm;h=b91137e883f2f45cfea0933b3ed58db83970994a;hb=410a7b480cdfac00c2dc65b9313ea79ecafac2b5;hp=dafd5df249e21b1604441d1ba0033e12b4a3080c;hpb=b83e43dc480771137fcff41589815556881b1243;p=plack-app-gruntmaster.git

diff --git a/lib/Gruntmaster/Page/St.pm b/lib/Gruntmaster/Page/St.pm
index dafd5df..b91137e 100644
--- a/lib/Gruntmaster/Page/St.pm
+++ b/lib/Gruntmaster/Page/St.pm
@@ -7,7 +7,7 @@ use Gruntmaster::Page::Base st => 'Standings';
 our @ISA = qw/Gruntmaster::Page::Base/;
 our $VERSION = '0.001';
 
-use constant => TEMPLATES => {
+use constant TEMPLATES => {
 	en => <<'HTML',
 <table border>
 <thead>
@@ -24,9 +24,11 @@ HTML
 sub _generate{
 	my ($self, $htc, $path, $lang) = @_;
 
-	local $Gruntmaster::Data::contest = ($path =~ m,^ct/([^/]+)/,)[0];
+	$path =~ m,^(?:ct/([^/]+)/)?,;
+	local $Gruntmaster::Data::contest = $1;
 
-	my @problems = sort problems;
+	my @problems = problems;
+	@problems = sort @problems;
 	my %scores;
 	for (1 .. jobcard) {
 		if (job_result_text =~ m/^(\d+)/) {
@@ -44,7 +46,7 @@ sub _generate{
 			scores => [map { $scores{$user}{$_} // '-'} @problems],
 		}
 	} keys %scores;
-	$htc->param(problems => \@problems);
+	$htc->param(problems => [map { problem_name } @problems ]);
 	$htc->param(st => \@st);
 }