oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix typos, add self variables

Browse source
This commit is contained in:
Colin Kuskie 2006-01-13 00:46:34 +00:00
parent 62f5ad3ed9
commit a8a4dd586a
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Paginator.pm
View file

@ -214,13 +214,14 @@ Returns a link to the first page's data.
=cut =cut
sub getFirstPageLink { sub getFirstPageLink {
my ($self) = @_;
my ($text, $pn); my ($text, $pn);
$pn = $_[0]->getPageNumber; $pn = $self->getPageNumber;
my $i18n = WebGUI::International->new($self->session); my $i18n = WebGUI::International->new($self->session);
$text = '|<'.$i18n->get(404); $text = '|<'.$i18n->get(404);
if ($pn > 1) { if ($pn > 1) {
return '<a href="'. return '<a href="'.
$self->session->url->append($_[0]->{_url},($_[0]->{_formVar}.'=1')) $self->session->url->append($self->{_url},($self->{_formVar}.'=1'))
.'">'.$text.'</a>'; .'">'.$text.'</a>';
} else { } else {
return $text; return $text;
@ -237,13 +238,14 @@ Returns a link to the last page's data.
=cut =cut
sub getLastPageLink { sub getLastPageLink {
my ($self) = @_;
my ($text, $pn); my ($text, $pn);
$pn = $_[0]->getPageNumber; $pn = $self->getPageNumber;
my $i18n = WebGUI::International->new($self->session); my $i18n = WebGUI::International->new($self->session);
$text = $i18n->get(405).'&gt;|'; $text = $i18n->get(405).'&gt;|';
if ($pn != $_[0]->getNumberOfPages) { if ($pn != $self->getNumberOfPages) {
return '<a href="'. return '<a href="'.
$self->session->url->append($_[0]->{_url},($_[0]->{_formVar}.'='.$_[0]->getNumberOfPages)) $self->session->url->append($self->{_url},($self->{_formVar}.'='.$self->getNumberOfPages))
.'">'.$text.'</a>'; .'">'.$text.'</a>';
} else { } else {
return $text; return $text;
@ -260,12 +262,13 @@ Returns a link to the next page's data.
=cut =cut
sub getNextPageLink { sub getNextPageLink {
my ($self) = @_;
my ($text, $pn); my ($text, $pn);
$pn = $_[0]->getPageNumber; $pn = $self->getPageNumber;
my $i18n = WebGUI::International->new($self->session); my $i18n = WebGUI::International->new($self->session);
$text = $i18n->get(92).'&raquo;'; $text = $i18n->get(92).'&raquo;';
if ($pn < $_[0]->getNumberOfPages) { if ($pn < $self->getNumberOfPages) {
return '<a href="'.$self->session->url->append($_[0]->{_url},($_[0]->{_formVar}.'='.($pn+1))).'">'.$text.'</a>'; return '<a href="'.$self->session->url->append($self->{_url},($self->{_formVar}.'='.($pn+1))).'">'.$text.'</a>';
} else { } else {
return $text; return $text;
} }
@ -398,12 +401,13 @@ Returns a link to the previous page's data.
=cut =cut
sub getPreviousPageLink { sub getPreviousPageLink {
my ($self) = @_;
my ($text, $pn); my ($text, $pn);
$pn = $_[0]->getPageNumber; $pn = $self->getPageNumber;
my $i18n = WebGUI::International->new($self->session); my $i18n = WebGUI::International->new($self->session);
$text = '&laquo;'.$i18n->get(91); $text = '&laquo;'.$i18n->get(91);
if ($pn > 1) { if ($pn > 1) {
return '<a href="'.$self->session->url->append($_[0]->{_url},($_[0]->{_formVar}.'='.($pn-1))).'">'.$text.'</a>'; return '<a href="'.$self->session->url->append($self->{_url},($self->{_formVar}.'='.($pn-1))).'">'.$text.'</a>';
} else { } else {
return $text; return $text;
} }