Index: openacs-4/contrib/packages/survey/www/admin/question-modify.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/question-modify.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/survey/www/admin/question-modify.tcl	18 Mar 2005 02:28:02 -0000	1.6
+++ openacs-4/contrib/packages/survey/www/admin/question-modify.tcl	13 May 2005 02:20:13 -0000	1.7
@@ -90,26 +90,24 @@
     }
 
     set response_list ""
-    set response_list ""
     db_foreach survey_question_valid_responses "" {
 	if {![empty_string_p $numeric_value]} {
-	    append valid_responses "[join [list $response_label $numeric_value] ","]\n"
+	    append valid_responses "[join [list $label $numeric_value] ","]\n"
 	} else {
-	    append valid_responses "${response_label}\n"
+	    append valid_responses "${label}\n"
 	}
     }
     ad_form -extend -name modify_question -form {
         {valid_responses:text(textarea)
             {label "[_ survey.lt_For_Multiple_Choicebr]"}
             {html {rows 10 cols 50}}
             {value $valid_responses}}
-    } 
-} 
+    }
+}
 
 if {$presentation_type == "textarea" || $presentation_type == "textbox"} {
     ad_form -extend -name modify_question -form {
-	{presentation_options:text(select) {options {{Small small} {Medium medium} {Large large}}} {value $presentation_options} {label "[string totitle $presentation_type] Size"}} 
-
+	{presentation_options:text(select) {options {{Small small} {Medium medium} {Large large}}} {value $presentation_options} {label "[string totitle $presentation_type] Size"}}
     }
 }
 
@@ -132,7 +130,6 @@
 	
 	# add new responses is choice type question
 	
-	
 	if {[info exists valid_responses] && $block_p=="f"} {
 	    
 	    set responses [split $valid_responses "\n"]