- $args{next_page} ? $tree->fclass('next')->namedlink($args{next_page}, 'Next') : $tree->fclass('next')->attr(class => 'next disabled');
- $args{previous_page} ? $tree->fclass('previous')->namedlink($args{previous_page}, 'Previous') : $tree->fclass('previous')->attr(class => 'previous disabled');
- $tree->fclass('current')->replace_content("Page $args{current_page} of $args{last_page}");
+ $args{next_page} ? $tree->fclass('next')->namedlink($args{next_page}, 'Next') : $tree->fclass('next')->detach;
+ $args{previous_page} ? $tree->fclass('previous')->namedlink($args{previous_page}, 'Previous') : $tree->fclass('previous')->detach;
+ for my $cls (qw/next previous/) {
+ my $elem = $tree->fclass($cls);
+ next unless $elem;
+ delete $args{args}{page};
+ my $str = join '&', map { $_ . '=' . $args{args}{$_} } keys %{$args{args}};
+ $elem->find('a')->edit_href(sub{s/$/&$str/}) if $str;
+ }
+
+ my $total_pages = max(1, $args{last_page});
+ $tree->fclass('current')->replace_content("Page $args{current_page} of $total_pages");