my @list;
foreach my $page (keys %pagesources) {
next if $page eq $params{page};
- if (pagespec_match($page, $params{pages})) {
+ if (pagespec_match($page, $params{pages}, $params{page})) {
push @list, $page;
}
}
return sprintf(gettext("unknown sort type %s"), $params{sort});
}
+ if (yesno($params{reverse})) {
+ @list=reverse(@list);
+ }
+
if (exists $params{skip}) {
@list=@list[$params{skip} .. scalar @list - 1];
}