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.3 -r1.4
--- openacs-4/packages/survey/www/process-response.tcl	24 Sep 2002 02:27:39 -0000	1.3
+++ openacs-4/packages/survey/www/process-response.tcl	8 Oct 2002 01:04:47 -0000	1.4
@@ -169,7 +169,7 @@
  values (:response_id, :question_id, :response_value)"
 		    }
 		}  else {
-		    if { [empty_string_p $response_value] } {
+		    if { [empty_string_p $response_value] || [empty_string_p [lindex $response_value 0]] } {
 			set response_value [db_null]
 		    }
 
Index: openacs-4/packages/survey/www/respond.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/respond.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/respond.tcl	16 Sep 2002 00:00:23 -0000	1.1
+++ openacs-4/packages/survey/www/respond.tcl	8 Oct 2002 01:04:47 -0000	1.2
@@ -24,6 +24,10 @@
     set user_id [ad_maybe_redirect_for_registration]
     set number_of_responses [db_string count_responses {}]
     get_survey_info -survey_id $survey_id
+    set single_section_p $survey_info(single_section_p)
+        if {$section_id==0 && $single_section_p=="t"} {
+            set section_id $survey_info(section_id)
+        }
     set name $survey_info(name)
     set description $survey_info(description)
     set single_response_p $survey_info(single_response_p)