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

added rating subsystem to discussion

Browse source
This commit is contained in:
JT Smith 2003-10-05 20:20:33 +00:00
parent e3516d209e
commit 3a60989c48
5 changed files with 94 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Forum.pm
View file

@ -8,6 +8,12 @@ use WebGUI::Session;
use WebGUI::SQL;
sub canPost {
my ($self, $userId) = @_;
$userId = $session{user}{userId} unless ($userId);
return WebGUI::Privilege::isInGroup($self->get("groupToPost"));
}
sub create {
my ($self, $data) = @_;
$data->{forumId} = "new";