Index: openacs-4/packages/survey/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/process-response.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/survey/www/process-response.tcl	30 Dec 2002 02:11:08 -0000	1.9
+++ openacs-4/packages/survey/www/process-response.tcl	30 Dec 2002 02:49:45 -0000	1.10
@@ -73,7 +73,7 @@
 		    ad_complain "$errmsg: Please make sure your dates are valid."
 		}
 	    }
-    
+  
 	    if { [exists_and_not_null response_to_question($question_id)] } {
 
 		set response_value [string trim $response_to_question($question_id)]
@@ -196,23 +196,13 @@
  values (:response_id, :question_id, :response_value)"
 		    }
 
-		}  else {
-		    if { [empty_string_p $response_value] || [empty_string_p [lindex $response_value 0]] } {
-
 		}
 		"shorttext" {
 		    db_dml survey_question_choice_shorttext_insert "insert into survey_question_responses (response_id, question_id, varchar_answer)
  values (:response_id, :question_id, :response_value)"
 		}
 		"boolean" {
 
-		}
-		"shorttext" {
-		    db_dml survey_question_choice_shorttext_insert "insert into survey_question_responses (response_id, question_id, varchar_answer)
- values (:response_id, :question_id, :response_value)"
-		}
-		"boolean" {
-
 		    if { [empty_string_p $response_value] } {
 
 			set response_value [db_null]