Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	5 Dec 2002 13:11:01 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	27 Oct 2014 16:39:53 -0000	1.5
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     rel_type:notnull
     { return_url "" }
 } -properties {
@@ -35,11 +35,11 @@
 set subsite_group_id [application_group::group_id_from_package_id]
 
 
-ad_require_permission $group_id "read"
+permission::require_permission -object_id $group_id -privilege "read"
 
 set context [list [list "[ad_conn package_url]admin/rel-segments/" "Relational segments"] "Add segment"]
 
-set export_vars [ad_export_vars -form {group_id rel_type return_url}]
+set export_vars [export_vars -form {group_id rel_type return_url}]
 
 db_1row select_basic_info {
     select acs_group.name(:group_id) as group_name,