updating stuff for new paginator

This commit is contained in:
JT Smith 2004-02-02 04:15:02 +00:00
parent 16e9d39a71
commit 019c28e63e
23 changed files with 46 additions and 31 deletions

View file

@ -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 .= '<table border=1 cellpadding=3 cellspacing=0 align="center">';
$output .= $p->getPage;
$output .= '</table>';