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

merging new forum into message board

Browse source
This commit is contained in:
JT Smith 2003-10-13 22:10:11 +00:00
parent 880e48f75f
commit 332f28e219
7 changed files with 327 additions and 111 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Forum.pm
View file

@ -44,8 +44,13 @@ sub isModerator {
}
sub incrementReplies {
my ($self) = @_;
WebGUI::SQL->write("update forum set replies=replies+1 where forumId=".$self->get("forumId"));
my ($self, $lastPostDate, $lastPostId) = @_;
WebGUI::SQL->write("update forum set replies=replies+1, lastPostId=$lastPostId, lastPostDate=$lastPostDate where forumId=".$self->get("forumId"));
}
sub incrementThreads {
my ($self, $lastPostDate, $lastPostId) = @_;
WebGUI::SQL->write("update forum set threads=threads+1, lastPostId=$lastPostId, lastPostDate=$lastPostDate where forumId=".$self->get("forumId"));
}
sub incrementViews {
@ -61,9 +66,9 @@ sub isSubscribed {
}
sub new {
my ($self, $forumId) = @_;
my ($class, $forumId) = @_;
my $properties = WebGUI::SQL->getRow("forum","forumId",$forumId);
bless {_properties=>$properties}, $self;
bless {_properties=>$properties}, $class;
}
sub purge {