Index: openacs-4/packages/acs-subsite/www/admin/groups/constraints-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/constraints-create.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/groups/constraints-create.tcl	6 Sep 2002 21:49:59 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/groups/constraints-create.tcl	27 Oct 2014 16:39:50 -0000	1.4
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:notnull,integer
+    group_id:notnull,naturalnum
     rel_type:notnull
     { return_url "" }
 } -properties {
@@ -20,8 +20,8 @@
     group_name:onevalue
 }
 
-set context [list [list "[ad_conn package_url]admin/groups/" "Groups"] [list one?[ad_export_vars group_id] "One Group"] "Add constraint"]
-set export_vars [ad_export_vars -form {group_id rel_type return_url}]
+set context [list [list "[ad_conn package_url]admin/groups/" "Groups"] [list one?[export_vars group_id] "One Group"] "Add constraint"]
+set export_vars [export_vars -form {group_id rel_type return_url}]
 
 db_1row select_props {
     select acs_group.name(:group_id) as group_name,