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

continuing dev on discussion

Browse source
This commit is contained in:
JT Smith 2003-10-05 17:28:51 +00:00
parent 44b35c3412
commit e3516d209e
3 changed files with 51 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lib/WebGUI/Forum/Thread.pm
View file

@ -7,18 +7,6 @@ use WebGUI::Forum::Post;
use WebGUI::Session;
use WebGUI::SQL;
sub addReply {
my ($self, $dateOfReply, $replyId) = @_;
WebGUI::SQL->write("update forumThread set replies=replies+1, lastPostId=$replyId, lastPostDate=$dateOfReply
where forumThreadId=".$self->get("forumThreadId"));
#add method to notify users for subscriptions
}
sub addView {
my ($self) = @_;
WebGUI::SQL->write("update forumThread set views=views+1 where forumThreadId=".$self->get("forumThreadId"));
}
sub create {
my ($self, $data, $postData) = @_;
$data->{forumThreadId} = "new";
@ -82,6 +70,13 @@ sub isLocked {
return $self->get("isLocked");
}
sub incrementReplies {
my ($self, $dateOfReply, $replyId) = @_;
WebGUI::SQL->write("update forumThread set replies=replies+1, lastPostId=$replyId, lastPostDate=$dateOfReply
where forumThreadId=".$self->get("forumThreadId"));
#add method to notify users for subscriptions
}
sub incrementViews {
my ($self) = @_;
WebGUI::SQL->write("update forumThread set views=views+1 where forumThreadId=".$self->get("forumThreadId"));
@ -119,7 +114,17 @@ sub set {
my ($self, $data) = @_;
$data->{forumThreadId} = $self->get("forumThreadId") unless ($data->{forumThreadId});
WebGUI::SQL->setRow("forumThread","forumThreadId",$data);
$self->{_properties} = $data;
foreach my $key (keys %{$data}) {
$self->{_properties}{$key} = $data->{$key};
}
}
sub setLastPost {
my ($self, $postId, $postDate) = @_;
$self->set({
lastPostId=>$postId,
lastPostDate=>$postDate
});
}
sub setStatusApproved {