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.5 -r1.6
--- openacs-4/packages/survey/www/admin/survey-create.tcl	12 Mar 2003 01:05:52 -0000	1.5
+++ openacs-4/packages/survey/www/admin/survey-create.tcl	13 Jan 2005 13:58:46 -0000	1.6
@@ -35,8 +35,8 @@
     {description:text(textarea) {label "[_ survey.Description_1]"} {html {rows 10 cols 40}}}
     {desc_html:text(radio)      {label "[_ survey.lt_The_Above_Description]"}
 	{options {{"[_ survey.Preformatted_Text]" "pre"}
-		  {"HTML" "html"} {"[_ survey.Plain_Text]" "plain"}}}
-		{value "plain"}
+	       {"HTML" "html"} }}
+		{value "pre"}
     }
     
 } -validate { 
@@ -50,10 +50,10 @@
     
 } -new_data {
         
-    if {[string compare $desc_html "plain"] == 0} {
-	set description_html_p "f"
-    } else {
+    if {[string compare $desc_html "html"] == 0} {
 	set description_html_p "t"
+    } else {
+	set description_html_p "f"
     }
 
     if {[parameter::get -package_id $package_id -parameter survey_enabled_default_p -default 0]} {