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

continued working on new discussion system

Browse source
This commit is contained in:
JT Smith 2003-07-20 20:47:27 +00:00
parent d91076b715
commit 1ee90115c6
5 changed files with 292 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Forum.pm
View file

@ -1,9 +1,13 @@
package WebGUI::Forum;
use strict;
use WebGUI::Forum::Thread;
use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
sub create {
my ($self, $data) = @_;
$data->{forumId} = "new";
@ -27,6 +31,12 @@ sub getThread {
return $self->{_thread}{$threadId};
}
sub isModerator {
my ($self, $userId) = @_;
$userId = $session{user}{userId} unless ($userId);
return WebGUI::Privilege::isInGroup($self->get("groupToModerate"), $userId);
}
sub new {
my ($self, $forumId) = @_;
my $properties = WebGUI::SQL->getRow("forum","forumId",$forumId);