Index: openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl	8 Jun 2010 21:15:41 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl	27 Oct 2014 16:39:59 -0000	1.8
@@ -1,13 +1,13 @@
 ad_page_contract {
 } {
-    object_id:integer,notnull
+    object_id:naturalnum,notnull
     return_url
-    page:integer,optional
+    page:naturalnum,optional
 }
 
 # check they have read permission on this file
 
-ad_require_permission $object_id admin
+permission::require_permission -object_id $object_id -privilege admin
 
 # TODO:
 # parties, select privilges, css, clean up
@@ -16,7 +16,7 @@
 
 set user_id [ad_conn user_id]
 
-set perm_url "[site_node_closest_ancestor_package_url]permissions/"
+set perm_url "[lindex [site_node::get_url_from_object_id -object_id [site_node::closest_ancestor_package -include_self -package_key [subsite::package_keys]]] 0]permissions/"
 
 list::create \
     -name users \