From 29be95b180b621b2f0969225275d46ce408affda Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 5 Jul 2009 03:45:53 +0000
Subject: [PATCH] Add POD for some methods in the Thread.

---
 lib/WebGUI/Asset/Post/Thread.pm | 30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Asset/Post/Thread.pm b/lib/WebGUI/Asset/Post/Thread.pm
index 5780f238a..0e75918cc 100644
--- a/lib/WebGUI/Asset/Post/Thread.pm
+++ b/lib/WebGUI/Asset/Post/Thread.pm
@@ -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;