got replies and edits working

This commit is contained in:
JT Smith 2003-08-24 18:46:38 +00:00
parent 74c733c2d4
commit 781526066f
3 changed files with 40 additions and 19 deletions

View file

@ -8,8 +8,9 @@ use WebGUI::Session;
use WebGUI::SQL;
sub addReply {
my ($self, $dateOfReply) = @_;
WebGUI::SQL->write("update forumThread set replies=replies+1, lastReply=".WebGUI::DateTime::time()." where forumThreadId=".$self->get("forumThreadId"));
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
}