$tree->find('table')->find('tbody')->find('tr')->iter3($args{log}, $iter);
$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/});
+ }
$tree->fclass('current')->replace_content("Page $args{current_page} of $args{last_page}");
}
my $pbiter = sub {
my ($data, $th) = @_;
$th->attr(class => undef);
- $th->namedlink($data->id, $data->name);
+ $th->namedlink(@$data);
};
$tree->fclass('problem')->iter3($args{problems}, $pbiter);
my $iter = sub {