Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	10 Jan 2007 21:22:07 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	27 Oct 2014 16:39:53 -0000	1.4
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     { rel_type:trim "" }
     { return_url "" }
 } -properties {
@@ -31,15 +31,15 @@
 
 # If the user has specified a rel_type, redirect to new-2
 if { $rel_type ne "" } {
-    ad_returnredirect new-2?[ad_export_vars {group_id rel_type return_url}]
+    ad_returnredirect new-2?[export_vars {group_id rel_type return_url}]
     ad_script_abort
 } 
 
-ad_require_permission $group_id "read"
+permission::require_permission -object_id $group_id -privilege "read"
 
 set context [list [list "" "Relational segments"] "Add segment"]
 
-set export_vars [ad_export_vars -form {group_id return_url}]
+set export_vars [export_vars -form {group_id return_url}]
 # Select out all relationship types
 db_multirow rel_types select_relation_types {
     select t.pretty_name, t.object_type as rel_type,