Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl	6 Sep 2002 21:49:59 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl	27 Oct 2014 16:39:51 -0000	1.4
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } {
-    group_rel_id:integer,notnull
+    group_rel_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     context:onevalue
@@ -30,9 +30,9 @@
     return
 }
 
-ad_require_permission $group_id admin
+permission::require_permission -object_id $group_id -privilege admin
 
-set export_vars [ad_export_vars -form {group_rel_id return_url}]
-set context [list [list "[ad_conn package_url]admin/groups/" "Groups"] [list one?[ad_export_vars {group_id}] "One group"] "Remove relation type"]
+set export_vars [export_vars -form {group_rel_id return_url}]
+set context [list [list "[ad_conn package_url]admin/groups/" "Groups"] [list one?[export_vars {group_id}] "One group"] "Remove relation type"]
 
 ad_return_template