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.11 -r1.11.4.1
--- openacs-4/packages/forums/tcl/forums-procs.tcl	28 Oct 2003 09:54:55 -0000	1.11
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	17 Jun 2004 19:57:45 -0000	1.11.4.1
@@ -88,27 +88,41 @@
 
 ad_proc -public forum::new_questions_allow {
     {-forum_id:required}
+    {-party_id ""}
 } {
+    if { [empty_string_p $party_id] } {
+        set party_id [acs_magic_object registered_users]
+    }
     # Give the public the right to ask new questions
     permission::grant -object_id $forum_id \
-            -party_id [acs_magic_object registered_users] \
+            -party_id $party_id \
             -privilege forum_create
+    util_memoize_flush_regexp  $forum_id
 }
 
 ad_proc -public forum::new_questions_deny {
     {-forum_id:required}
+    {-party_id ""}
 } {
+    if { [empty_string_p $party_id] } {
+        set party_id [acs_magic_object registered_users]
+    }
     # Revoke the right from the public to ask new questions
     permission::revoke -object_id $forum_id \
-            -party_id [acs_magic_object registered_users] \
+            -party_id $party_id \
             -privilege forum_create
+    util_memoize_flush_regexp  $forum_id
 }
 
 ad_proc -public forum::new_questions_allowed_p {
     {-forum_id:required}
+    {-party_id ""}
 } {
+    if { [empty_string_p $party_id] } {
+        set party_id [acs_magic_object registered_users]
+    }
     permission::permission_p -object_id $forum_id \
-            -party_id [acs_magic_object registered_users] \
+            -party_id $party_id \
             -privilege forum_create
 }