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 -r1.3.4.1 -r1.3.4.2
--- openacs-4/packages/survey/www/admin/name-edit.tcl	28 Jul 2004 03:10:23 -0000	1.3.4.1
+++ openacs-4/packages/survey/www/admin/name-edit.tcl	28 Jul 2004 04:59:55 -0000	1.3.4.2
@@ -16,22 +16,29 @@
 }
 
 get_survey_info -survey_id $survey_id
-set survey_name $survey_info(name)
+set survey_name "$survey_info(name)"
 
 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_info(name)}}
-	{description:text(textarea) {value "HI"}  {label "[_ survey.Description_1]"} 
+    {name:text(text) {label "[_ survey.Survey_Name_1]"} {html {size 80}}}
+	{description:text(textarea) {label "[_ survey.Description_1]"} 
 	{html {rows 10 cols 65}}}
+	{description_html_p:text(radio)      {label "[_ survey.lt_The_Above_Description]"}
+	{options {{"[_ survey.Preformatted_Text]" "f"}
+	       {"HTML" "t"} }}
+	       {value "pre"}}
+
 } -validate {
     {name {[string length $name] <= 4000}
     "[_ survey.lt_Survey_Name_must_be_l]"
     }
 } -edit_request {
-    set name $survey_info(name)
+    get_survey_info -survey_id $survey_id
+    set name "$survey_info(name)"
+    set description "$survey_info(description)"
+    set description_html_p "$survey_info(description_html_p)"
 } -edit_data {
     db_dml survey_update ""
     ad_returnredirect "one?[export_vars survey_id]"