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

continuing to work on forum

Browse source
This commit is contained in:
JT Smith 2003-08-24 01:18:59 +00:00
parent 6d117f9ac6
commit 74c733c2d4
3 changed files with 25 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Forum/Post.pm
View file

@ -51,6 +51,11 @@ sub getThread {
return $self->{_thread};
}
sub incrementViews {
my ($self) = @_;
WebGUI::SQL->write("update forumPost set views=views+1 where forumPostId=".$self->get("forumPostId"));
}
sub isMarkedRead {
my ($self, $userId) = @_;
$userId = $session{user}{userId} unless ($userId);
@ -61,10 +66,11 @@ sub isMarkedRead {
sub markRead {
my ($self, $userId) = @_;
$userId = $session{user}{userId} unless ($userId);
unless (isMarkedRead($userId)) {
unless ($self->isMarkedRead($userId)) {
WebGUI::SQL->write("insert into forumRead (userId, forumPostId, forumThreadId, lastRead) values ($userId,
".$self->get("forumPostId").", ".$self->get("forumThreadId").", ".WebGUI::DateTime::time().")");
}
$self->incrementViews;
}
sub new {