diff --git a/lib/WebGUI/Paginator.pm b/lib/WebGUI/Paginator.pm index ea979b5d5..f4e09234b 100644 --- a/lib/WebGUI/Paginator.pm +++ b/lib/WebGUI/Paginator.pm @@ -214,13 +214,14 @@ Returns a link to the first page's data. =cut sub getFirstPageLink { + my ($self) = @_; my ($text, $pn); - $pn = $_[0]->getPageNumber; + $pn = $self->getPageNumber; my $i18n = WebGUI::International->new($self->session); $text = '|<'.$i18n->get(404); if ($pn > 1) { return ''.$text.''; } else { return $text; @@ -237,13 +238,14 @@ Returns a link to the last page's data. =cut sub getLastPageLink { + my ($self) = @_; my ($text, $pn); - $pn = $_[0]->getPageNumber; + $pn = $self->getPageNumber; my $i18n = WebGUI::International->new($self->session); $text = $i18n->get(405).'>|'; - if ($pn != $_[0]->getNumberOfPages) { + if ($pn != $self->getNumberOfPages) { return ''.$text.''; } else { return $text; @@ -260,12 +262,13 @@ Returns a link to the next page's data. =cut sub getNextPageLink { + my ($self) = @_; my ($text, $pn); - $pn = $_[0]->getPageNumber; + $pn = $self->getPageNumber; my $i18n = WebGUI::International->new($self->session); $text = $i18n->get(92).'»'; - if ($pn < $_[0]->getNumberOfPages) { - return ''.$text.''; + if ($pn < $self->getNumberOfPages) { + return ''.$text.''; } else { return $text; } @@ -398,12 +401,13 @@ Returns a link to the previous page's data. =cut sub getPreviousPageLink { + my ($self) = @_; my ($text, $pn); - $pn = $_[0]->getPageNumber; + $pn = $self->getPageNumber; my $i18n = WebGUI::International->new($self->session); $text = '«'.$i18n->get(91); if ($pn > 1) { - return ''.$text.''; + return ''.$text.''; } else { return $text; }