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

Added a pagination feature to the Article wobject to allow for multi-paged articles.

Browse source
This commit is contained in:
JT Smith 2003-04-12 16:26:27 +00:00
parent 99c67bb00a
commit 3953a94787
2 changed files with 30 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Wobject/Article.pm
View file

@ -18,6 +18,7 @@ use WebGUI::HTML;
use WebGUI::HTMLForm;
use WebGUI::Icon;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
@ -141,6 +142,23 @@ sub www_view {
if ($_[0]->get("convertCarriageReturns")) {
$var{description} =~ s/\n/\<br\>/g;
}
if ($session{form}{makePrintable}) {
$var{description} =~ s/\^\-\;//g;
$var{isFirstPage} = 1;
$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);
$var{description} = $p->getPage;
$var{firstPage} = $p->getFirstPageLink;
$var{lastPage} = $p->getLastPageLink;
$var{nextPage} = $p->getNextPageLink;
$var{pageList} = $p->getPageLinks;
$var{previousPage} = $p->getPreviousPageLink;
$var{multiplePages} = ($p->getNumberOfPages > 1);
$var{isLastPage} = ($p->getNumberOfPages == $p->getPageNumber);
$var{isFirstPage} = (1 == $p->getPageNumber);
}
if ($_[0]->get("attachment") ne "") {
$file = WebGUI::Attachment->new($_[0]->get("attachment"),$_[0]->get("wobjectId"));
$var{"attachment.box"} = $file->box;