Index: openacs-4/packages/acs-subsite/www/permissions/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/www/permissions/one.tcl	10 Jan 2007 21:22:09 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/permissions/one.tcl	27 Oct 2014 16:39:59 -0000	1.14
@@ -8,13 +8,13 @@
     @creation-date 2000-08-20
     @cvs-id $Id$
 } {
-    object_id:integer,notnull
+    object_id:naturalnum,notnull
     {children_p "f"}
     {application_url ""}
 }
 
 set user_id [auth::require_login]
-ad_require_permission $object_id admin
+permission::require_permission -object_id $object_id -privilege admin
 
 # RBM: Check if this is the Main Site and prevent the user from being
 #      able to remove Read permission on "The Public" and locking
@@ -42,7 +42,7 @@
 
 db_1row context { *SQL* }
 
-if { $security_inherit_p eq "t" && $context_id ne "" } {
+if { $security_inherit_p == "t" && $context_id ne "" } {
     lappend controls "<a href=\"toggle-inherit?[export_vars {application_url object_id}]\">Don't Inherit Permissions from [ad_quotehtml $context_name]</a>"
 } else {
     lappend controls "<a href=\"toggle-inherit?[export_vars {application_url object_id}]\">Inherit Permissions from [ad_quotehtml $context_name]</a>"
@@ -55,7 +55,7 @@
 set show_children_url "one?[export_vars {object_id application_url {children_p t}}]"
 set hide_children_url "one?[export_vars {object_id application_url {children_p f}}]"
 
-if {$children_p eq "t"} {
+if {$children_p == "t"} {
     db_multirow children children { *SQL* } {
     }
 } else {