diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 3c49bb64e..3ebdbd8df 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,4 +1,5 @@ 7.5.19 + - fixed: paginator doesn't show correct number of page links with a limit applied - fixed: user profile defaults can contain arbitrary perl code - fixed: Syndicated Content UTF-8 check for decoded content - fixed: unable to purge trash diff --git a/lib/WebGUI/Paginator.pm b/lib/WebGUI/Paginator.pm index 108e8edaa..22dce6a96 100644 --- a/lib/WebGUI/Paginator.pm +++ b/lib/WebGUI/Paginator.pm @@ -492,8 +492,8 @@ sub getPageLinks { my $output; my $i = 1; my $minPage = $self->getPageNumber - round($limit/2); - my $maxPage = $minPage + $limit; my $start = ($minPage > 0) ? $minPage : 1; + my $maxPage = $start + $limit - 1; my $end = ($maxPage < $self->getPageNumber) ? $self->getPageNumber : $maxPage; my @temp; foreach my $page (@pages) {