Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl	4 Oct 2010 21:59:20 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl	27 Oct 2014 16:39:51 -0000	1.5
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     rel_type:notnull
     { return_url "" }
 } -validate {
@@ -67,10 +67,10 @@
       from dual
 }] } {
     if { $return_url eq "" } {
-	set return_url one?[ad_export_vars group_id]
+	set return_url one?[export_vars group_id]
     }
     ad_returnredirect $return_url 
 } else {
-    ad_returnredirect constraints-create?[ad_export_vars {group_id rel_type return_url}]
+    ad_returnredirect constraints-create?[export_vars {group_id rel_type return_url}]
 }