]>
iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Pb.pm
1 package Gruntmaster
::Page
::Pb
;
6 use Gruntmaster
::Page
::Base pb
=> 'Problems';
7 our @ISA = qw
/Gruntmaster::Page::Base/;
8 our $VERSION = '0.001';
11 my ($self, $htc, $lang, $env, $ct) = @_;
12 debug
$env => "language is '$lang' and contest is '$ct'";
13 local $Gruntmaster::Data
::contest
= $ct if $ct;
15 my @problems = sort { $b->{name
} cmp $a->{name
} } map +{
18 level
=> problem_level
}, problems
;
20 for my $d (qw
/beginner easy medium advanced hard/) {
21 $htc->param($d => [grep {$_->{level
} and $_->{level
} eq $d} @problems]);
23 $htc->param(levels
=> grep { $_->{level
} } @problems);
24 $htc->param(problems
=> \
@problems);
This page took 0.047841 seconds and 4 git commands to generate.