Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/one.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/one.tcl	10 Oct 2003 12:25:51 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/one.tcl	27 Oct 2014 16:39:53 -0000	1.4
@@ -18,9 +18,9 @@
     req_rel:onerow
 }
 
-ad_require_permission $constraint_id read
+permission::require_permission -object_id $constraint_id -privilege read
 
-set admin_p [ad_permission_p $constraint_id admin]
+set admin_p [permission::permission_p -object_id $constraint_id -privilege admin]
 
 set package_id [ad_conn package_id]