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.7 -r1.8
--- openacs-4/packages/survey/www/process-response.tcl	10 Dec 2002 01:19:37 -0000	1.7
+++ openacs-4/packages/survey/www/process-response.tcl	30 Dec 2002 01:45:51 -0000	1.8
@@ -75,6 +75,7 @@
 	    }
     
 	    if { [exists_and_not_null response_to_question($question_id)] } {
+
 		set response_value [string trim $response_to_question($question_id)]
 	    } elseif {$required_p == "t"} {
 		lappend questions_with_missing_responses $question_text
@@ -195,6 +196,7 @@
  values (:response_id, :question_id, :response_value)"
 		    }
 <<<<<<< process-response.tcl
+<<<<<<< process-response.tcl
 		}  else {
 		    if { [empty_string_p $response_value] || [empty_string_p [lindex $response_value 0]] } {
 =======
@@ -204,8 +206,16 @@
  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] } {
->>>>>>> 1.3.2.4
+
 			set response_value [db_null]
 		    }