]>
iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Pb/Entry.pm
1 package Gruntmaster
::Page
::Pb
::Entry
;
6 use Gruntmaster
::Page
::Base pb_entry
=> '<tmpl_var name>';
7 our @ISA = qw
/Gruntmaster::Page::Base/;
8 our $VERSION = '0.001';
10 use constant FORMATS
=> [qw
/C CPP JAVA PERL PYTHON/];
13 my ($self, $htc, $lang, $env, $contest, $id) = @_;
14 debug
$env => "language is '$lang', contest is '$contest', id is '$id'";
15 my $user = $env->{REMOTE_USER
};
16 if ($contest && $user) {
18 debug
$env => "Marking problem $id of contest $contest open by $user";
21 $htc->param(cansubmit
=> 1);
23 $htc->param(cansubmit
=> time <= contest_end
$contest);
24 $htc->param(contest
=> $contest);
26 $htc->param(formats
=> FORMATS
);
27 $htc->param(id
=> $id);
28 local $Gruntmaster::Data
::contest
= $contest if $contest;
29 $htc->param(name
=> problem_name
$id);
30 $htc->param(author
=> problem_author
$id);
31 $htc->param(owner
=> problem_owner
$id);
32 $htc->param(statement
=> problem_statement
$id);
This page took 0.045332 seconds and 4 git commands to generate.