Index: openacs-4/contrib/packages/survey/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/Attic/process-response.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/survey/www/process-response.tcl	13 Jan 2005 13:54:40 -0000	1.8
+++ openacs-4/contrib/packages/survey/www/process-response.tcl	10 Mar 2005 21:23:19 -0000	1.9
@@ -190,10 +190,9 @@
 	    set predefined_question_id [lindex $question 5]
 
 	    if {[info exists response_to_question($question_id)]} {
-		if {$abstract_data_type=="date"} {
-                    if {[exists_and_not_null invalid_date_p($question_id)]} {
+		if {$abstract_data_type=="date" && \
+		    [exists_and_not_null invalid_date_p($question_id)]} {
                         set response_value [db_null]
-                    }
 		} else {
 		    set response_value [string trim $response_to_question($question_id)]
 		}