Index: openacs-4/packages/survey/www/admin/survey-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-copy.tcl,v
diff -u -N -r1.5 -r1.5.2.1
--- openacs-4/packages/survey/www/admin/survey-copy.tcl	6 Nov 2013 07:33:55 -0000	1.5
+++ openacs-4/packages/survey/www/admin/survey-copy.tcl	29 Jul 2014 11:42:13 -0000	1.5.2.1
@@ -4,9 +4,9 @@
     @date    August 3, 2002
     @cvs-id $Id:
 } {
-    survey_id:integer,notnull
+    survey_id:naturalnum,notnull
     name:optional
-    new_survey_id:optional
+    new_survey_id:naturalnum,optional
 }
 
 set package_id [ad_conn package_id]