Index: openacs-4/packages/survey/www/admin/name-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/name-edit.tcl,v
diff -u -N -r1.3 -r1.3.4.1
--- openacs-4/packages/survey/www/admin/name-edit.tcl	12 Mar 2003 01:05:52 -0000	1.3
+++ openacs-4/packages/survey/www/admin/name-edit.tcl	28 Jul 2004 03:10:23 -0000	1.3.4.1
@@ -12,27 +12,26 @@
 
     survey_id:integer
     {name ""}
+    {description:html ""}
 }
 
 get_survey_info -survey_id $survey_id
 set survey_name $survey_info(name)
-set survey_description $survey_info(description)
 
 ad_require_permission $survey_id survey_modify_survey
 
 ad_form -name edit-name -form {
     survey_id:key
     {name:text(text) {label "[_ survey.Survey_Name_1]"} {html {size 80}}
-	{value $survey_name}}
-	{description:text(textarea) {label "[_ survey.Description_1]"} 
-	{html {rows 10 cols 65}}
-        {value $survey_description}}
+	{value $survey_info(name)}}
+	{description:text(textarea) {value "HI"}  {label "[_ survey.Description_1]"} 
+	{html {rows 10 cols 65}}}
 } -validate {
     {name {[string length $name] <= 4000}
     "[_ survey.lt_Survey_Name_must_be_l]"
     }
 } -edit_request {
-    set name $survey_name
+    set name $survey_info(name)
 } -edit_data {
     db_dml survey_update ""
     ad_returnredirect "one?[export_vars survey_id]"