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

continued working on new discussion system

Browse source
This commit is contained in:
JT Smith 2003-07-20 20:47:27 +00:00
parent d91076b715
commit 1ee90115c6
5 changed files with 292 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,6 @@
package WebGUI::Forum::Post;
use strict;
use WebGUI::DateTime;
use WebGUI::Forum::Thread;
use WebGUI::Session;
@ -31,6 +32,17 @@ sub get {
return $self->{_properties}->{$key};
}
sub getReplies {
my ($self) = @_;
my @replies;
my $sth = WebGUI::SQL->read("select forumPostId from forumPost where parentId=".$self->get("forumPostId")." order by forumPostId");
while (my ($postId) = $sth->array) {
push(@replies,WebGUI::Forum::Post->new($postId));
}
$sth->finish;
return \@replies;
}
sub getThread {
my ($self) = @_;
unless (exists $self->{_thread}) {