Index: openacs-4/packages/forums/tcl/forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/forums/tcl/forums-procs.tcl	11 Jul 2002 00:39:24 -0000	1.7
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	22 Nov 2002 17:20:05 -0000	1.7.2.1
@@ -66,6 +66,26 @@
         db_1row select_forum {} -column_array row
     }
 
+    ad_proc -public posting_policy_set {
+        {-posting_policy:required}
+        {-forum_id:required}
+    } { 
+        # JCD: this is potentially bad since we are 
+        # just assuming registered_users is the 
+        # right group to be granting forum_write to.
+
+        if {![string equal closed $posting_policy]} { 
+            permission::grant -object_id $forum_id \
+                -party_id [acs_magic_object registered_users] \
+                -privilege forum_write 
+        } else { 
+            permission::revoke -object_id $forum_id \
+                -party_id [acs_magic_object registered_users] \
+                -privilege forum_write 
+        }
+
+    } 
+
     ad_proc -public new_questions_allow {
         {-forum_id:required}
     } {