Index: openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl	4 Jun 2006 00:45:45 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl	27 Oct 2014 16:39:59 -0000	1.6
@@ -8,12 +8,12 @@
     @creation-date 2000-09-30
     @cvs-id $Id$
 } {
-    object_id:integer,notnull
+    object_id:naturalnum,notnull
     {application_url ""}
     {return_url {[export_vars -base "one" {application_url object_id}]}}
 }
 
-ad_require_permission $object_id admin
+permission::require_permission -object_id $object_id -privilege admin
 
 permission::toggle_inherit -object_id $object_id