fixed "Page 1 of 0" in job log

diff --git a/lib/Plack/App/Gruntmaster/HTML.pm b/lib/Plack/App/Gruntmaster/HTML.pm
index 427b197002a5fff16c0dc299f85fde0e88003c95..b4abd19f5194fbe28f40bcd41e9794b237119f8b 100644 (file)
--- a/lib/Plack/App/Gruntmaster/HTML.pm
+++ b/lib/Plack/App/Gruntmaster/HTML.pm
@@ -4,6 +4,7 @@ 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//;
@@ -277,7 +278,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 {