Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	10 Sep 2002 22:22:14 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	15 Sep 2002 22:10:50 -0000	1.10
@@ -114,7 +114,9 @@
 } {
     Grant a permission
 
-    @author ben@openforce
+    @author ben@openforce.net
+
+    @see permission::grant
 } {
     permission::grant -party_id $user_id -object_id $object_id -privilege $privilege
 }
@@ -126,7 +128,9 @@
 } {
     Revoke a permission
 
-    @author ben@openforce
+    @author ben@openforce.net
+
+    @see permission::revoke
 } {
     permission::revoke -party_id $user_id -object_id $object_id -privilege $privilege
 }
@@ -135,6 +139,8 @@
     {-user_id ""}
     object_id
     privilege
+} { 
+    @see permission::permission_p
 } {
     return [permission::permission_p -party_id $user_id -object_id $object_id -privilege $privilege]
 }
@@ -143,6 +149,8 @@
   object_id
   privilege
 } {
+    @see permission::require_permission
+} { 
     permission::require_permission -object_id $object_id -privilege $privilege
 }