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

integrated new discussion system into article

Browse source
This commit is contained in:
JT Smith 2003-10-12 23:29:10 +00:00
parent d17e7d0393
commit 7f53e348f5
7 changed files with 323 additions and 465 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Forum.pm
View file

@ -6,7 +6,7 @@ use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Utility;
sub canPost {
my ($self, $userId) = @_;
@ -43,6 +43,16 @@ sub isModerator {
return WebGUI::Privilege::isInGroup($self->get("groupToModerate"), $userId);
}
sub incrementReplies {
my ($self) = @_;
WebGUI::SQL->write("update forum set replies=replies+1 where forumId=".$self->get("forumId"));
}
sub incrementViews {
my ($self) = @_;
WebGUI::SQL->write("update forum set views=views+1 where forumId=".$self->get("forumId"));
}
sub isSubscribed {
my ($self, $userId) = @_;
$userId = $session{user}{userId} unless ($userId);
@ -56,6 +66,15 @@ sub new {
bless {_properties=>$properties}, $self;
}
sub recalculateRating {
my ($self) = @_;
my ($count) = WebGUI::SQL->quickArray("select count(*) from forumThread where forumId=".$self->get("forumId")." and rating>0");
$count = $count || 1;
my ($sum) = WebGUI::SQL->quickArray("select sum(rating) from forumThread where forumId=".$self->get("forumId")." and rating>0");
my $average = round($sum/$count);
$self->set({rating=>$average});
}
sub set {
my ($self, $data) = @_;
$data->{forumId} = $self->get("forumId") unless ($data->{forumId});