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 -r1.17 -r1.18
--- openacs-4/packages/survey/www/process-response.tcl	7 Aug 2017 23:48:29 -0000	1.17
+++ openacs-4/packages/survey/www/process-response.tcl	12 Feb 2019 18:00:04 -0000	1.18
@@ -191,17 +191,11 @@
 			# Deal with multiple responses. 
 			set checked_responses $response_to_question($question_id)
 			foreach response_value $checked_responses {
-			    if { $response_value eq "" } {
-				set response_value [db_null]
-			    }
 
 			    db_dml survey_question_response_checkbox_insert "insert into survey_question_responses (response_id, question_id, choice_id)
  values (:response_id, :question_id, :response_value)"
 			}
 		    }  else {
-			if { $response_value eq "" || [lindex $response_value 0] eq "" } {
-			    set response_value [db_null]
-			}
 
 			db_dml survey_question_response_choice_insert "insert into survey_question_responses (response_id, question_id, choice_id)
  values (:response_id, :question_id, :response_value)"
@@ -212,25 +206,16 @@
  values (:response_id, :question_id, :response_value)"
 		}
 		"boolean" {
-		    if { $response_value eq "" } {
-			set response_value [db_null]
-		    }
 
 		    db_dml survey_question_response_boolean_insert "insert into survey_question_responses (response_id, question_id, boolean_answer)
  values (:response_id, :question_id, :response_value)"
 		}
 		"integer" -
 		"number" {
-		    if { $response_value eq "" } {
-			set response_value [db_null]
-		    } 
 		    db_dml survey_question_response_integer_insert "insert into survey_question_responses (response_id, question_id, number_answer)
  values (:response_id, :question_id, :response_value)"
 		}
 		"text" {
-		    if { $response_value eq "" } {
-			set response_value [db_null]
-		    }
 
 		    db_dml survey_question_response_text_insert "
 insert into survey_question_responses
@@ -239,9 +224,6 @@
 returning clob_answer into :1" -clobs [list $response_value]
 	    }
 	    "date" {
-                if { $response_value eq "" } {
-                    set response_value [db_null]
-                }
 
 		db_dml survey_question_response_date_insert "insert into survey_question_responses (response_id, question_id, date_answer)
 values (:response_id, :question_id, :response_value)"