diff --git a/lib/WebGUI/Forum.pm b/lib/WebGUI/Forum.pm
index 661503546..7263b5c91 100644
--- a/lib/WebGUI/Forum.pm
+++ b/lib/WebGUI/Forum.pm
@@ -16,7 +16,6 @@ package WebGUI::Forum;
use strict;
use WebGUI::Forum::Thread;
-use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
diff --git a/lib/WebGUI/Forum/UI.pm b/lib/WebGUI/Forum/UI.pm
index c3b834628..f46841e59 100644
--- a/lib/WebGUI/Forum/UI.pm
+++ b/lib/WebGUI/Forum/UI.pm
@@ -1092,7 +1092,7 @@ sub getForumTemplateVars {
} else {
$query .= "lastPostDate desc";
}
- my $p = WebGUI::Paginator->new(WebGUI::URL::append($callback,"forumOp=viewForum&forumId=".$forum->get("forumId")),"",$forum->get("postsPerPage"));
+ my $p = WebGUI::Paginator->new(WebGUI::URL::append($callback,"forumOp=viewForum&forumId=".$forum->get("forumId")),$forum->get("postsPerPage"));
$p->setDataByQuery($query);
$var{firstPage} = $p->getFirstPageLink;
$var{lastPage} = $p->getLastPageLink;
@@ -2073,8 +2073,7 @@ sub www_search {
on a.forumThreadId=b.forumThreadId where b.forumId=".$forum->get("forumId")." and
(a.status='approved' or a.status='archived') and ".WebGUI::Search::buildConstraints([qw(a.subject a.username a.message)])
." order by a.dateOfPost desc";
- my $p = WebGUI::Paginator->new(WebGUI::URL::append($caller->{callback},"forumOp=search&doit=1&forumId=".$forum->get("forumId")),
- "", $numResults);
+ my $p = WebGUI::Paginator->new(WebGUI::URL::append($caller->{callback},"forumOp=search&doit=1&forumId=".$forum->get("forumId")), $numResults);
$p->setDataByQuery($query);
my @post_loop;
foreach my $row (@{$p->getPageData}) {
diff --git a/lib/WebGUI/Operation/Account.pm b/lib/WebGUI/Operation/Account.pm
index 157125d49..1435ddbcc 100644
--- a/lib/WebGUI/Operation/Account.pm
+++ b/lib/WebGUI/Operation/Account.pm
@@ -521,7 +521,8 @@ sub www_viewMessageLog {
$i++;
}
$sth->finish;
- $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewMessageLog'),\@row);
+ $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewMessageLog'));
+ $p->setDataByArrayRef(\@row);
$output .= '
';
$output .= '
diff --git a/lib/WebGUI/Operation/Clipboard.pm b/lib/WebGUI/Operation/Clipboard.pm
index 363cd29f9..e59d7a327 100644
--- a/lib/WebGUI/Operation/Clipboard.pm
+++ b/lib/WebGUI/Operation/Clipboard.pm
@@ -19,6 +19,7 @@ use WebGUI::Icon;
use WebGUI::International;
use WebGUI::Operation::Shared;
use WebGUI::Page;
+use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
@@ -327,10 +328,11 @@ sub www_manageClipboard {
}
$output .= '
';
if ($session{form}{systemClipboard} eq "1") {
- $p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageClipboard&systemClipboard=1'),\@row);
+ $p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageClipboard&systemClipboard=1'));
} else {
- $p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageClipboard'),\@row);
+ $p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageClipboard'));
}
+ $p->setDataByArrayRef(\@row);
$output .= $p->getPage($session{form}{pn});
$output .= '
';
$output .= $p->getBarTraditional($session{form}{pn});
diff --git a/lib/WebGUI/Operation/Collateral.pm b/lib/WebGUI/Operation/Collateral.pm
index 2d1eecb68..4b1a3f40f 100644
--- a/lib/WebGUI/Operation/Collateral.pm
+++ b/lib/WebGUI/Operation/Collateral.pm
@@ -414,7 +414,7 @@ sub www_listCollateral {
$constraints .= " and userId=$session{scratch}{collateralUser}" if ($session{scratch}{collateralUser});
$constraints .= " and collateralType=".quote($session{scratch}{collateralType}) if ($session{scratch}{collateralType});
$constraints .= " and name like ".quote('%'.$session{scratch}{keyword}.'%') if ($session{scratch}{keyword});
- $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listCollateral'),[],"",$session{scratch}{collateralPageNumber});
+ $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listCollateral'),"",$session{scratch}{collateralPageNumber});
$p->setDataByQuery("select collateralId, name, filename, collateralType, dateUploaded, username, parameters
from collateral where $constraints order by name");
$page = $p->getPageData;
diff --git a/lib/WebGUI/Operation/DatabaseLink.pm b/lib/WebGUI/Operation/DatabaseLink.pm
index cd5dbab3c..fee91d66c 100644
--- a/lib/WebGUI/Operation/DatabaseLink.pm
+++ b/lib/WebGUI/Operation/DatabaseLink.pm
@@ -138,7 +138,8 @@ sub www_listDatabaseLinks {
$i++;
}
$sth->finish;
- $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listDatabaseLinks'),\@row);
+ $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listDatabaseLinks'));
+ $p->setDataByArrayRef(\@row);
$output .= '';
$output .= $p->getPage;
$output .= '
';
diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm
index da521ddd6..1a0670b3b 100644
--- a/lib/WebGUI/Operation/Group.pm
+++ b/lib/WebGUI/Operation/Group.pm
@@ -314,7 +314,8 @@ sub www_listGroups {
$i++;
}
$sth->finish;
- $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listGroups'),\@row);
+ $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listGroups'));
+ $p->setDataByArrayRef(\@row);
$output .= '