Index: openacs-4/packages/forums/www/forum-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/www/forum-view.tcl	3 Jun 2002 04:39:05 -0000	1.2
+++ openacs-4/packages/forums/www/forum-view.tcl	5 Jun 2002 19:14:39 -0000	1.3
@@ -31,6 +31,12 @@
 # Get forum data
 forum::get -forum_id $forum_id -array forum
 
+# If disabled!
+if {$forum(enabled_p) != "t"} {
+    ad_returnredirect "./"
+    ad_script_abort
+}
+
 set query messages_select
 if {$moderate_p} {
     set query messages_select_moderator
Index: openacs-4/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/forums/www/message-view.tcl	3 Jun 2002 04:39:05 -0000	1.3
+++ openacs-4/packages/forums/www/message-view.tcl	5 Jun 2002 19:14:39 -0000	1.4
@@ -32,6 +32,12 @@
 # Load up the forum information
 forum::get -forum_id $message(forum_id) -array forum
 
+# If disabled!
+if {$forum(enabled_p) != "t"} {
+    ad_returnredirect "./"
+    ad_script_abort
+}
+
 # Check preferences for user
 
 # Set some variables for easy SQL access
Index: openacs-4/packages/forums/www/admin/forum-disable.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-disable.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/www/admin/forum-disable.tcl	3 Jun 2002 04:39:05 -0000	1.2
+++ openacs-4/packages/forums/www/admin/forum-disable.tcl	5 Jun 2002 19:14:39 -0000	1.3
@@ -12,4 +12,4 @@
 
 forum::disable -forum_id $forum_id
 
-ad_returnredirect "./"
+ad_returnredirect "./forum-edit?forum_id=$forum_id"
Index: openacs-4/packages/forums/www/admin/forum-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-edit.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/www/admin/forum-edit.adp	29 May 2002 21:40:11 -0000	1.1
+++ openacs-4/packages/forums/www/admin/forum-edit.adp	5 Jun 2002 19:14:39 -0000	1.2
@@ -2,4 +2,12 @@
 <property name="title">Edit Forum: @forum.name@</property>
 <property name="context_bar"></property>
 
+<if @forum.enabled_p@ eq t>
+This forum is <b>enabled</b>. You may <a href="forum-disable?forum_id=@forum.forum_id@">disable it</a>.
+</if>
+<else>
+This forum is <b>disabled</b>. You may <a href="forum-enable?forum_id=@forum.forum_id@">enable it</a>.
+</else>
+<p>
+
 <formtemplate id="forum"></formtemplate>
Index: openacs-4/packages/forums/www/admin/forum-enable.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-enable.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/www/admin/forum-enable.tcl	3 Jun 2002 04:39:05 -0000	1.2
+++ openacs-4/packages/forums/www/admin/forum-enable.tcl	5 Jun 2002 19:14:39 -0000	1.3
@@ -12,4 +12,4 @@
 
 forum::enable -forum_id $forum_id
 
-ad_returnredirect "./"
+ad_returnredirect "./forum-edit?forum_id=$forum_id"