]>
iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Ct.pm
ac035854dd637a48824a8787e49c7924c117d0d7
1 package Gruntmaster
::Page
::Ct
;
6 use Gruntmaster
::Page
::Base ct
=> 'Contests';
7 our @ISA = qw
/Gruntmaster::Page::Base/;
8 our $VERSION = '0.001';
10 use constant TEMPLATES
=> {
13 <h1>Running contests</h1>
16 <tr><th>Name<th>Start date<th>End date<th>Owner
18 <tmpl_loop running><tr><td><a href="<tmpl_var id>"><tmpl_var name></a>
27 <h1>Pending contests</h1>
30 <tr><th>Name<th>Start date<th>End date<th>Owner
32 <tmpl_loop pending><tr><td><a href="<tmpl_var id>"><tmpl_var name></a>
41 <h1>Finished contests</h1>
44 <tr><th>Name<th>Start date<th>End date<th>Owner
46 <tmpl_loop finished><tr><td><a href="<tmpl_var id>"><tmpl_var name></a>
57 my ($self, $htc, $path, $lang) = @_;
59 my (@running, @pending, @finished);
63 start
=> strftime
('%c', localtime contest_start
),
64 end
=> strftime
('%c', localtime contest_end
),
65 owner
=> contest_owner
};
68 push @pending, $ct if time < contest_start
;
69 push @running, $ct if time >= contest_start
&& time < contest_end
;
70 push @finished, $ct if time > contest_end
;
73 $htc->param(running
=> \
@running) if @running;
74 $htc->param(pending
=> \
@pending) if @pending;
75 $htc->param(finished
=> \
@finished) if @finished;
This page took 0.056644 seconds and 3 git commands to generate.