our @ISA = qw/Gruntmaster::Page::Base/;
our $VERSION = '0.001';
-use constant => TEMPLATES => {
+use constant TEMPLATES => {
en => <<'HTML',
<table border>
<thead>
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+)/) {
scores => [map { $scores{$user}{$_} // '-'} @problems],
}
} keys %scores;
- $htc->param(problems => \@problems);
+ $htc->param(problems => [map { problem_name } @problems ]);
$htc->param(st => \@st);
}