Index: openacs.org-dev/packages/forums/www/forum-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/forum-view.adp,v
diff -u -r1.19 -r1.20
--- openacs.org-dev/packages/forums/www/forum-view.adp	8 Jul 2003 17:06:34 -0000	1.19
+++ openacs.org-dev/packages/forums/www/forum-view.adp	6 Nov 2003 02:11:41 -0000	1.20
@@ -30,7 +30,7 @@
     </tr>
   
     </table>
-  
+
     <br>
  
     <!-- pagination context bar -->
Index: openacs.org-dev/packages/forums/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/index.adp,v
diff -u -r1.5 -r1.6
--- openacs.org-dev/packages/forums/www/index.adp	11 Dec 2002 16:37:18 -0000	1.5
+++ openacs.org-dev/packages/forums/www/index.adp	6 Nov 2003 02:11:41 -0000	1.6
@@ -72,3 +72,5 @@
   </table>
 
 </center>
+
+<p><b>&raquo;</b> <a href="recent-posters">View recent posters</a></p>
Index: openacs.org-dev/packages/forums/www/message-close.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-close.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/forums/www/message-close.tcl	6 Nov 2003 02:11:41 -0000	1.1
@@ -0,0 +1,16 @@
+ad_page_contract {
+    closes a thread and all replies
+} {
+    message_id
+} 
+set user_id [ad_conn user_id]
+
+permission::require_permission \
+	-object_id $message_id \
+	-party_id $user_id \
+	-privilege "admin"
+
+forum::message::close -message_id $message_id
+
+ad_returnredirect "message-view?message_id=$message_id"
+
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
Index: openacs.org-dev/packages/forums/www/message-view-flat.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-view-flat.adp,v
diff -u -r1.3 -r1.4
--- openacs.org-dev/packages/forums/www/message-view-flat.adp	28 Oct 2002 20:45:29 -0000	1.3
+++ openacs.org-dev/packages/forums/www/message-view-flat.adp	6 Nov 2003 02:11:41 -0000	1.4
@@ -30,4 +30,8 @@
 
 </multiple>
 </if>
-<p><strong><a href="message-post?parent_id=@message.message_id@">Post a reply</a></strong></p>
+<if @message.open_p@ eq "t">
+<p><strong><a href="message-post?parent_id=@message.message_id@">Post a reply</a></strong></p><if @moderate_p@ eq 1><p>Extreme Action: <a href="message-open?message_id=@message.message_id@">Close this thread</a></p></if>
+</if>
+
+<else><strong>This thread is closed <if @moderate_p@ eq 1><a href="message-open?message_id=@message.message_id@">Reopen this thread</a></if></strong></else>
Index: openacs.org-dev/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-view.tcl,v
diff -u -r1.8 -r1.9
--- openacs.org-dev/packages/forums/www/message-view.tcl	1 Feb 2003 23:36:46 -0000	1.8
+++ openacs.org-dev/packages/forums/www/message-view.tcl	6 Nov 2003 02:11:41 -0000	1.9
@@ -25,6 +25,8 @@
     set post_p 1
 }
 
+
+
 # Load up the message information
 forum::message::get -message_id $message_id -array message
 set message(subject) [ad_quotehtml $message(subject)]