Index: openacs-4/packages/acs-subsite/www/admin/attributes/enum-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/attributes/enum-add.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/attributes/enum-add.tcl	10 Jan 2007 21:22:06 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/attributes/enum-add.tcl	27 Oct 2014 16:39:49 -0000	1.4
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    attribute_id:integer,notnull
+    attribute_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     context:onevalue
@@ -49,8 +49,8 @@
      where a.attribute_id = :attribute_id
 }
 
-set context [list [list one?[export_url_vars attribute_id] "One attribute"] "Add values"]
+set context [list [list one?[export_vars -url {attribute_id}] "One attribute"] "Add values"]
 
-set export_vars [ad_export_vars -form {attribute_id return_url}]
+set export_vars [export_vars -form {attribute_id return_url}]
 
 ad_return_template