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

Add POD for some methods in the Thread.

Browse source
This commit is contained in:
Colin Kuskie 2009-07-05 03:45:53 +00:00
parent 209597fa6b
commit 29be95b180
1 changed files with 26 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lib/WebGUI/Asset/Post/Thread.pm
View file

@ -23,14 +23,28 @@ use WebGUI::Utility;
our @ISA = qw(WebGUI::Asset::Post);
#-------------------------------------------------------------------
=head2 addRevision
Extend the base method to handle creating a subscription group for this Thread.
=cut
sub addRevision {
my $self = shift;
my $newSelf = $self->SUPER::addRevision(@_);
$newSelf->createSubscriptionGroup;
return $newSelf;
my $self = shift;
my $newSelf = $self->SUPER::addRevision(@_);
$newSelf->createSubscriptionGroup;
return $newSelf;
}
#-------------------------------------------------------------------
=head2 archive
Archives all posts under this thread.
=cut
sub archive {
my $self = shift;
foreach my $post (@{$self->getPosts}) {
@ -39,6 +53,14 @@ sub archive {
}
#-------------------------------------------------------------------
=head2 canAdd ($session)
A class method. Returns true if the current user in in the group canStartThreadGroupId
in the default asset, which better be a Collaboration System.
=cut
sub canAdd {
my $class = shift;
my $session = shift;