Index: openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl,v
diff -u -N -r1.14.2.2 -r1.14.2.3
--- openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	3 Jul 2016 14:39:34 -0000	1.14.2.2
+++ openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	4 Jul 2017 23:26:49 -0000	1.14.2.3
@@ -1,20 +1,24 @@
-# expects:
-# object_id
-# return_url
-# privs:optional, defaults to 'read', 'write', 'admin'
-# user_add_url: URL to the page for adding users
+ad_include_contract {
+    Display a permission table for the provided object_id
 
+    @param object_id
+    @param return_url
+    @param privs
+    @param user_add_url URL for adding users
+} {
+    {object_id:integer}
+    {return_url:localurl}
+    {privs { read create write delete admin }}
+    {user_add_url:localurl ""}
+}
+
 set user_id [ad_conn user_id]
 set admin_p [permission::permission_p -object_id $object_id -privilege admin]
 
-if { (![info exists return_url] || $return_url eq "") } {
+if { $return_url eq "" } {
     set return_url [ad_return_url]
 }
 
-if { (![info exists privs] || $privs eq "") } {
-    set privs { read create write delete admin }
-}
-
 db_1row object_info {}
 
 set elements [list]