Index: openacs.org-dev/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-post.tcl,v
diff -u -r1.14 -r1.15
--- openacs.org-dev/packages/forums/www/message-post.tcl	1 Feb 2003 23:36:46 -0000	1.14
+++ openacs.org-dev/packages/forums/www/message-post.tcl	6 Nov 2003 02:11:41 -0000	1.15
@@ -15,7 +15,13 @@
         if {[empty_string_p $forum_id] && [empty_string_p $parent_id]} {
             ad_complain "You either have to post to a forum or in reply to another message"
         }
+	
     }
+    not_closed {
+	if {![empty_string_p $parent_id] && [string equal [db_string get_open_p "select open_p from forums_messages where message_id=:parent_id" -default "t"] "f"]} {
+	    ad_complain "This thread has been closed."
+	}
+    }
 }
 
 ad_maybe_redirect_for_registration