Index: openacs-4/packages/survey/www/admin/survey-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-create.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/survey/www/admin/survey-create.tcl	18 Sep 2002 12:15:21 -0000	1.3
+++ openacs-4/packages/survey/www/admin/survey-create.tcl	25 Sep 2002 00:43:42 -0000	1.4
@@ -45,6 +45,8 @@
 }     {description {[string length $description] <= 4000}
     "Survey Name must be 4000 characters or less"
 }
+    {survey_id {[db_string count_surveys "select count(survey_id) from surveys where survey_id=:survey_id"] < 1} "oops"
+    }
     
 } -new_data {