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;
}