X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;ds=sidebyside;f=lib%2FGruntmaster%2FPage%2FLog.pm;h=68f45fdc3790bfe8ca045740d0782c1a36cd911a;hb=95a9ad1be9a7e32f642d469acb006990c2b86151;hp=5a2b4c6a91d36cb13a846479f91f6baedb79ff05;hpb=3da9c3c228106c819530a0b8e4c646981e6f71c9;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page/Log.pm b/lib/Gruntmaster/Page/Log.pm index 5a2b4c6..68f45fd 100644 --- a/lib/Gruntmaster/Page/Log.pm +++ b/lib/Gruntmaster/Page/Log.pm @@ -3,59 +3,37 @@ package Gruntmaster::Page::Log; use 5.014000; use strict; use warnings; -use parent qw/Exporter/; -our @EXPORT_OK = qw/generate/; +use Gruntmaster::Page::Base log => 'Job log'; +our @ISA = qw/Gruntmaster::Page::Base/; our $VERSION = '0.001'; -use constant TITLE => 'Job log'; use constant PAGE_SIZE => 10; -use constant FORMAT_EXTENSION => { - CPP => 'cpp', -}; +sub _generate{ + my ($self, $htc, $lang, $env, $ct, $page) = @_; + debug $env => "language is '$lang', contest is '$ct' and page is '$page'"; + local $Gruntmaster::Data::contest = $ct if $ct; -use HTML::Template::Compiled; -use POSIX qw/strftime/; -use Gruntmaster::Page::Common qw/header footer/; -use Gruntmaster::Data qw/job_date job_file problem_name job_private job_problem job_result job_result_text job_user/; + my $pages = POSIX::floor (jobcard / PAGE_SIZE); + $pages ||= 1; + $page ||= $pages; -my %templates = ( - en => <<'HTML', -
ID | Problem | Date | Size | User | Result - |
---|---|---|---|---|---|
data-private> | |