From efd1e6705bca68724b2770abbd7d6ef67bef16a0 Mon Sep 17 00:00:00 2001
From: James Tolley <james@plainblack.com>
Date: Mon, 9 Jul 2007 20:54:31 +0000
Subject: [PATCH] CS thread permissions edit

---
 lib/WebGUI/Asset/Post/Thread.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/WebGUI/Asset/Post/Thread.pm b/lib/WebGUI/Asset/Post/Thread.pm
index ac42cf13e..9e1f31fb0 100644
--- a/lib/WebGUI/Asset/Post/Thread.pm
+++ b/lib/WebGUI/Asset/Post/Thread.pm
@@ -38,6 +38,13 @@ sub archive {
 	}
 }
 
+#-------------------------------------------------------------------
+sub canAdd {
+    my $class   = shift;
+    my $session = shift;
+    return $session->user->isInGroup($session->asset->get('canStartThreadGroupId'));
+}
+
 #-------------------------------------------------------------------
 sub canReply {
 	my $self = shift;