From 019c28e63e8548920c913b4b6afe4d125772fde2 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Mon, 2 Feb 2004 04:15:02 +0000 Subject: [PATCH] updating stuff for new paginator --- lib/WebGUI/Forum.pm | 1 - lib/WebGUI/Forum/UI.pm | 5 ++--- lib/WebGUI/Operation/Account.pm | 3 ++- lib/WebGUI/Operation/Clipboard.pm | 6 ++++-- lib/WebGUI/Operation/Collateral.pm | 2 +- lib/WebGUI/Operation/DatabaseLink.pm | 3 ++- lib/WebGUI/Operation/Group.pm | 6 ++++-- lib/WebGUI/Operation/International.pm | 3 ++- lib/WebGUI/Operation/MessageLog.pm | 2 +- lib/WebGUI/Operation/Profile.pm | 3 +-- lib/WebGUI/Operation/Root.pm | 3 ++- lib/WebGUI/Operation/Search.pm | 3 ++- lib/WebGUI/Operation/Statistics.pm | 6 ++++-- lib/WebGUI/Operation/Style.pm | 4 +++- lib/WebGUI/Operation/Template.pm | 3 ++- lib/WebGUI/Operation/Theme.pm | 3 ++- lib/WebGUI/Operation/Trash.pm | 6 ++++-- lib/WebGUI/Operation/User.pm | 1 - lib/WebGUI/Wobject/Article.pm | 3 ++- lib/WebGUI/Wobject/EventsCalendar.pm | 5 +++-- lib/WebGUI/Wobject/FileManager.pm | 2 +- lib/WebGUI/Wobject/SQLReport.pm | 2 +- lib/WebGUI/Wobject/USS.pm | 2 +- 23 files changed, 46 insertions(+), 31 deletions(-) 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 .= '
'.WebGUI::International::get(351).' '.WebGUI::International::get(553).'
'; $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 .= ''; $output .= '
'.WebGUI::International::get(84).'' .WebGUI::International::get(85).'' @@ -345,7 +346,8 @@ sub www_listGroupsSecondary { $i++; } $sth->finish; - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listGroupsSecondary'),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listGroupsSecondary')); + $p->setDataByArrayRef(\@row); $output .= ''; $output .= '\n"; $i++; } - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listInternationalMessages&lid='.$session{form}{lid}),\@row,100); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listInternationalMessages&lid='.$session{form}{lid}),100); + $p->setDataByArrayRef(\@row); $output .= $p->getBarTraditional($session{form}{pn}); $output .= '
'.WebGUI::International::get(84).'' .WebGUI::International::get(85).'' diff --git a/lib/WebGUI/Operation/International.pm b/lib/WebGUI/Operation/International.pm index fafebc1e1..d05304937 100644 --- a/lib/WebGUI/Operation/International.pm +++ b/lib/WebGUI/Operation/International.pm @@ -352,7 +352,8 @@ sub www_listInternationalMessages { .$list{$key}{id}."".$list{$key}{message}."
'; $output .= ''; if ($session{form}{systemTrash} eq "1") { - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageTrash&systemTrash=1'),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageTrash&systemTrash=1')); } else { - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageTrash'),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageTrash')); } + $p->setDataByArrayRef(\@row); $output .= $p->getPage($session{form}{pn}); $output .= '
'.WebGUI::International::get(434).''. diff --git a/lib/WebGUI/Operation/MessageLog.pm b/lib/WebGUI/Operation/MessageLog.pm index 966a81191..101c215be 100644 --- a/lib/WebGUI/Operation/MessageLog.pm +++ b/lib/WebGUI/Operation/MessageLog.pm @@ -38,7 +38,7 @@ sub www_viewMessageLog { my (@msg, $vars); WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(2,$session{user}{userId})); $vars->{displayTitle} = '

'.WebGUI::International::get(159).'

'; - my $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewMessageLog'),[]); + my $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewMessageLog')); my $query = "select messageLogId,subject,url,dateOfEntry,status from messageLog where userId=$session{user}{userId} order by dateOfEntry desc"; $p->setDataByQuery($query); diff --git a/lib/WebGUI/Operation/Profile.pm b/lib/WebGUI/Operation/Profile.pm index ae0fba3a2..33ba91f37 100644 --- a/lib/WebGUI/Operation/Profile.pm +++ b/lib/WebGUI/Operation/Profile.pm @@ -22,7 +22,6 @@ use WebGUI::International; use WebGUI::Macro; use WebGUI::Mail; use WebGUI::MessageLog; -use WebGUI::Paginator; use WebGUI::Privilege; use WebGUI::Session; use WebGUI::SQL; @@ -260,4 +259,4 @@ sub www_viewProfile { return WebGUI::Template::process(WebGUI::Template::get(1,'Operation/Profile/View'), $vars); } -1; \ No newline at end of file +1; diff --git a/lib/WebGUI/Operation/Root.pm b/lib/WebGUI/Operation/Root.pm index e3724d06c..9a3d99998 100644 --- a/lib/WebGUI/Operation/Root.pm +++ b/lib/WebGUI/Operation/Root.pm @@ -51,7 +51,8 @@ sub www_listRoots { $i++; } $sth->finish; - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listRoots'),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listRoots')); + $p->setDataByArrayRef(\@row); $output .= ''; $output .= $p->getPage; $output .= '
'; diff --git a/lib/WebGUI/Operation/Search.pm b/lib/WebGUI/Operation/Search.pm index b73a7a883..7b98c5085 100644 --- a/lib/WebGUI/Operation/Search.pm +++ b/lib/WebGUI/Operation/Search.pm @@ -49,7 +49,8 @@ sub www_search { $sth->finish; } if ($row[0] ne "") { - $p = WebGUI::Paginator->new($url,\@row,$session{scratch}{numResults}); + $p = WebGUI::Paginator->new($url,$session{scratch}{numResults}); + $p->setDataByArrayRef(\@row); $output .= '

'.WebGUI::International::get(365).'

    '; $output .= $p->getPage($session{form}{pn}); $output .= '
'.$p->getBarTraditional($session{form}{pn}); diff --git a/lib/WebGUI/Operation/Statistics.pm b/lib/WebGUI/Operation/Statistics.pm index bce6d5291..787ff6aa6 100644 --- a/lib/WebGUI/Operation/Statistics.pm +++ b/lib/WebGUI/Operation/Statistics.pm @@ -64,7 +64,8 @@ sub www_viewActiveSessions { $i++; } $sth->finish; - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewActiveSessions'),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewActiveSessions')); + $p->setDataByArrayRef(\@row); $output .= ''; $output .= ''; $output .= ''; @@ -95,7 +96,8 @@ sub www_viewLoginHistory { $i++; } $sth->finish; - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewLoginHistory'),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewLoginHistory')); + $p->setDataByArrayRef(\@row); $output .= '
'.WebGUI::International::get(428).''.WebGUI::International::get(435).'
'; $output .= ''; $output .= ''; diff --git a/lib/WebGUI/Operation/Style.pm b/lib/WebGUI/Operation/Style.pm index d04438aaf..118da2768 100644 --- a/lib/WebGUI/Operation/Style.pm +++ b/lib/WebGUI/Operation/Style.pm @@ -12,6 +12,7 @@ package WebGUI::Operation::Style; use Exporter; use strict; +use WebGUI::Paginator; use WebGUI::Session; use WebGUI::URL; @@ -57,7 +58,8 @@ sub www_listRoots { $i++; } $sth->finish; - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listRoots'),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listRoots')); + $p->setDataByArrayRef(\@row); $output .= '
'.WebGUI::International::get(428).''.WebGUI::International::get(434).'
'; $output .= $p->getPage; $output .= '
'; diff --git a/lib/WebGUI/Operation/Template.pm b/lib/WebGUI/Operation/Template.pm index e6b0910ba..dd7befa8c 100644 --- a/lib/WebGUI/Operation/Template.pm +++ b/lib/WebGUI/Operation/Template.pm @@ -202,7 +202,8 @@ sub www_listTemplates { $i++; } $sth->finish; - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listTemplates&namespace='.$session{form}{namespace}),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listTemplates&namespace='.$session{form}{namespace})); + $p->setDataByArrayRef(\@row); $output .= ''; $output .= $p->getPage($session{form}{pn}); $output .= '
'; diff --git a/lib/WebGUI/Operation/Theme.pm b/lib/WebGUI/Operation/Theme.pm index eceb19c56..7d6550e15 100644 --- a/lib/WebGUI/Operation/Theme.pm +++ b/lib/WebGUI/Operation/Theme.pm @@ -454,7 +454,8 @@ sub www_listThemes { $i++; } $sth->finish; - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listThemes'),\@row); + $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listThemes')); + $p->setDataByArrayRef(\@row); $output .= ''; $output .= $p->getPage($session{form}{pn}); $output .= '
'; diff --git a/lib/WebGUI/Operation/Trash.pm b/lib/WebGUI/Operation/Trash.pm index b7fb656ae..d38944268 100644 --- a/lib/WebGUI/Operation/Trash.pm +++ b/lib/WebGUI/Operation/Trash.pm @@ -16,6 +16,7 @@ use Tie::CPHash; use WebGUI::DateTime; use WebGUI::Icon; use WebGUI::Operation::Shared; +use WebGUI::Paginator; use WebGUI::Privilege; use WebGUI::Session; use WebGUI::SQL; @@ -399,10 +400,11 @@ sub www_manageTrash { } $output .= '
'; $output .= $p->getBarTraditional($session{form}{pn}); diff --git a/lib/WebGUI/Operation/User.pm b/lib/WebGUI/Operation/User.pm index d954833de..dd82c2198 100644 --- a/lib/WebGUI/Operation/User.pm +++ b/lib/WebGUI/Operation/User.pm @@ -31,7 +31,6 @@ use WebGUI::User; use WebGUI::Utility; our @ISA = qw(Exporter); -#&www_addUserSecondary &www_addUserSecondarySave our @EXPORT = qw(&www_editUserKarma &www_editUserKarmaSave &www_editUserGroup &www_editUserProfile &www_editUserProfileSave &www_addUserToGroupSave &www_deleteGrouping &www_editGrouping &www_editGroupingSave &www_becomeUser &www_addUser &www_addUserSave &www_deleteUser &www_deleteUserConfirm &www_editUser &www_editUserSave &www_listUsers); diff --git a/lib/WebGUI/Wobject/Article.pm b/lib/WebGUI/Wobject/Article.pm index 0caab493e..f508a2e9c 100644 --- a/lib/WebGUI/Wobject/Article.pm +++ b/lib/WebGUI/Wobject/Article.pm @@ -161,7 +161,8 @@ sub www_view { $var{isLastPage} = 1; } else { my @pages = split(/\^\-\;/,$var{description}); - my $p = WebGUI::Paginator->new(WebGUI::URL::page("wid=".$_[0]->get("wobjectId")."&func=view"),\@pages,1); + my $p = WebGUI::Paginator->new(WebGUI::URL::page("wid=".$_[0]->get("wobjectId")."&func=view"),1); + $p->setDataByArrayRef(\@pages); $var{description} = $p->getPage; $var{firstPage} = $p->getFirstPageLink; $var{lastPage} = $p->getLastPageLink; diff --git a/lib/WebGUI/Wobject/EventsCalendar.pm b/lib/WebGUI/Wobject/EventsCalendar.pm index ebd9a7d56..eae4feacd 100644 --- a/lib/WebGUI/Wobject/EventsCalendar.pm +++ b/lib/WebGUI/Wobject/EventsCalendar.pm @@ -491,7 +491,8 @@ sub www_view { } $row[$i-1] = "page"; } - $p = WebGUI::Paginator->new(WebGUI::URL::page("func=view&wid=".$_[0]->get("wobjectId")),\@row,1); + $p = WebGUI::Paginator->new(WebGUI::URL::page("func=view&wid=".$_[0]->get("wobjectId")),1); + $p->setDataByArrayRef(\@row); $var{"calendar.firstPage"} = $p->getFirstPageLink; $var{"calendar.lastPage"} = $p->getLastPageLink; $var{"calendar.nextPage"} = $p->getNextPageLink; @@ -502,7 +503,7 @@ sub www_view { $flag = 0; $session{form}{pn} = ""; } - $p = WebGUI::Paginator->new(WebGUI::URL::page("func=view&wid=".$_[0]->get("wobjectId")),[],$_[0]->get("paginateAfter")); + $p = WebGUI::Paginator->new(WebGUI::URL::page("func=view&wid=".$_[0]->get("wobjectId")),$_[0]->get("paginateAfter")); my $query = "select * from EventsCalendar_event where "; $query .= " wobjectId=".$_[0]->get("wobjectId")." and " unless ($_[0]->get("isMaster")); $query .= " endDate>=$minDate and startDate<=$maxDate order by startDate,endDate"; diff --git a/lib/WebGUI/Wobject/FileManager.pm b/lib/WebGUI/Wobject/FileManager.pm index 58a99f08b..a170eb7ce 100644 --- a/lib/WebGUI/Wobject/FileManager.pm +++ b/lib/WebGUI/Wobject/FileManager.pm @@ -316,7 +316,7 @@ sub www_view { $sort = $session{scratch}{$_[0]->get("namespace").".".$_[0]->get("wobjectId").".sort"} || "sequenceNumber"; $sortDirection = $session{scratch}{$_[0]->get("namespace").".".$_[0]->get("wobjectId").".sortDirection"} || "desc"; $sql .= " order by $sort $sortDirection"; - $p = WebGUI::Paginator->new($url,[],$numResults); + $p = WebGUI::Paginator->new($url,$numResults); $p->setDataByQuery($sql); $files = $p->getPageData; my $canEditWobject = (WebGUI::Privilege::canEditWobject($_[0]->get("wobjectId")) || WebGUI::Privilege::canEditPage()); diff --git a/lib/WebGUI/Wobject/SQLReport.pm b/lib/WebGUI/Wobject/SQLReport.pm index 22fb0212d..0342ffea3 100644 --- a/lib/WebGUI/Wobject/SQLReport.pm +++ b/lib/WebGUI/Wobject/SQLReport.pm @@ -122,7 +122,7 @@ sub www_view { .'='.WebGUI::URL::escape($session{form}{$_})); } } - my $p = WebGUI::Paginator->new($url,[],$_[0]->get("paginateAfter")); + my $p = WebGUI::Paginator->new($url,$_[0]->get("paginateAfter")); my $error = $p->setDataByQuery($query,$dbh,1); if ($error ne "") { WebGUI::ErrorHandler::warn("There was a problem with the query: ".$error); diff --git a/lib/WebGUI/Wobject/USS.pm b/lib/WebGUI/Wobject/USS.pm index ce0c19f79..a527ea267 100644 --- a/lib/WebGUI/Wobject/USS.pm +++ b/lib/WebGUI/Wobject/USS.pm @@ -580,7 +580,7 @@ sub www_view { $var{"date.updated.label"} = WebGUI::International::get(78,$_[0]->get("namespace")); $var{"by.label"} = WebGUI::International::get(21,$_[0]->get("namespace")); $var{"submission.edit.label"} = WebGUI::International::get(27,$_[0]->get("namespace")); - $p = WebGUI::Paginator->new(WebGUI::URL::page('func=view&wid='.$_[0]->get("wobjectId")),[],$numResults); + $p = WebGUI::Paginator->new(WebGUI::URL::page('func=view&wid='.$_[0]->get("wobjectId")),$numResults); $p->setDataByQuery("select USS_submissionId, content, title, userId, status, image, dateSubmitted, dateUpdated, username, contentType, forumId, userDefined1, userDefined2, userDefined3, userDefined4, userDefined5 from USS_submission where USS_id=".$_[0]->get("USS_Id")." and $constraints order by ".$_[0]->getValue("sortBy")." ".$_[0]->getValue("sortOrder"));