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

Templatized Events Calendar.

Browse source
This commit is contained in:
JT Smith 2002-11-25 05:50:58 +00:00
parent f3872bc104
commit 86d374258c
6 changed files with 318 additions and 114 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Paginator.pm
View file

@ -337,7 +337,7 @@ sub getPageData {
=cut
sub getPageNumber {
return $_[0]->{_pn} || 1;
return $_[0]->{_pn};
}
#-------------------------------------------------------------------
@ -429,12 +429,12 @@ sub getPreviousPageLink {
sub new {
my ($class, $currentURL, $rowsPerPage, $rowRef, $formVar, $pageRef, $pn);
$class = shift;
$currentURL = shift;
$rowRef = shift;
$rowsPerPage = shift || 25;
$pn = shift || $session{form}{$formVar};
$formVar = shift || "pn";
$class = $_[0];
$currentURL = $_[1];
$rowRef = $_[2];
$rowsPerPage = $_[3] || 25;
$formVar = $_[5] || "pn";
$pn = $_[4] || $session{form}{$formVar} || 1;
bless {_url => $currentURL, _rpp => $rowsPerPage, _rowRef => $rowRef, _formVar => $formVar, _pn => $pn}, $class;
}