X-Git-Url: http://git.ieval.ro/?p=gruntmaster-page.git;a=blobdiff_plain;f=lib%2FPlack%2FApp%2FGruntmaster%2FHTML.pm;h=40b47a7494568448be9eb768bdaf50146a1e490b;hp=e69dac980ba6a87d8b1b568d34cfa44cd3435661;hb=37220f63b3da2607b803e74e647298472bd5f5e0;hpb=06652b6de8dfe1dfdc25729a22330ff6cca489df diff --git a/lib/Plack/App/Gruntmaster/HTML.pm b/lib/Plack/App/Gruntmaster/HTML.pm index e69dac9..40b47a7 100644 --- a/lib/Plack/App/Gruntmaster/HTML.pm +++ b/lib/Plack/App/Gruntmaster/HTML.pm @@ -4,12 +4,12 @@ use parent qw/Exporter/; our @EXPORT = qw/render render_article/; use File::Slurp qw/read_file/; +use List::Util qw[min max]; use HTML::Element::Library; use HTML::TreeBuilder; use POSIX qw//; use Data::Dumper qw/Dumper/; use Sort::ByExample - sorter => {-as => 'pb_sort', example => [qw/beginner easy medium hard/], xform => sub {$_->{level}}}, sorter => {-as => 'ct_sort', example => [qw/Running Pending Finished/], xform => sub {$_->{status}}}; my $optional_end_tags = {%HTML::Tagset::optionalEndTag, tr => 1, td => 1, th => 1}; @@ -221,7 +221,7 @@ sub process_pb { $tr->find('td')->attr(class => $tr->find('td')->attr('class').' warning') if $data->{private} && !$args{args}{contest}; }; - $tree->find('tbody')->find('tr')->iter3([pb_sort @{$args{pb}}], $iter); + $tree->find('tbody')->find('tr')->iter3([sort { $a->{value} <=> $b->{value} } @{$args{pb}}], $iter); $tree->fid('open-alert')->detach unless $args{args}{contest}; } @@ -277,7 +277,9 @@ sub process_log { my $str = join '&', map { $_ . '=' . $args{args}{$_} } keys %{$args{args}}; $elem->find('a')->edit_href(sub{s/$/&$str/}) if $str; } - $tree->fclass('current')->replace_content("Page $args{current_page} of $args{last_page}"); + + my $total_pages = max(1, $args{last_page}); + $tree->fclass('current')->replace_content("Page $args{current_page} of $total_pages"); } sub process_st {