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

@ -38,7 +38,7 @@ sub www_viewMessageLog {
my (@msg, $vars);
WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(2,$session{user}{userId}));
$vars->{displayTitle} = '<h1>'.WebGUI::International::get(159).'</h1>';
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);