Index: openacs-4/packages/forums/tcl/forums-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-security-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/forums/tcl/forums-security-procs.tcl	17 May 2003 10:42:46 -0000	1.6
+++ openacs-4/packages/forums/tcl/forums-security-procs.tcl	21 Sep 2003 19:58:58 -0000	1.7
@@ -25,7 +25,7 @@
         {-user_id ""}
         {-forum_id:required}
     } {
-        return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege forum_read]
+        return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege read]
     }
 
     ad_proc -public require_read_forum {
@@ -41,7 +41,7 @@
         {-user_id ""}
         {-message_id:required}
     } {
-        return [permission::permission_p -party_id $user_id -object_id $message_id -privilege forum_read]
+        return [permission::permission_p -party_id $user_id -object_id $message_id -privilege read]
     }
 
     ad_proc -public require_read_message {
@@ -57,7 +57,7 @@
         {-user_id ""}
         {-forum_id:required}
     } {
-        return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege forum_create]
+        return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege create]
     }
 
     ad_proc -public require_post_forum {
@@ -73,7 +73,7 @@
         {-user_id ""}
         {-message_id:required}
     } {
-        return [permission::permission_p -party_id $user_id -object_id $message_id -privilege forum_write]
+        return [permission::permission_p -party_id $user_id -object_id $message_id -privilege write]
     }
 
     ad_proc -public require_post_message {