]>
iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Pb/Entry.pm
84fbf052aa43efd9c0af6a61e3fa4d6a8f3466ed
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 PASCAL 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) {
17 local $Gruntmaster::Data
::contest
= $contest;
19 debug
$env => "Marking problem $id of contest $contest open by $user";
22 $htc->param(cansubmit
=> 1);
24 $htc->param(cansubmit
=> time <= contest_end
$contest);
25 $htc->param(contest
=> $contest);
27 $htc->param(formats
=> FORMATS
);
28 $htc->param(id
=> $id);
29 local $Gruntmaster::Data
::contest
= $contest if $contest;
30 $htc->param(name
=> problem_name
$id);
31 $htc->param(author
=> problem_author
$id);
32 $htc->param(owner
=> problem_owner
$id);
33 $htc->param(statement
=> problem_statement
$id);
36 sub vary
{ 'Authorization' }
This page took 0.04825 seconds and 3 git commands to generate.