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.3.2.1
--- 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:02:52 -0000	1.3.2.1
@@ -70,7 +70,7 @@
 		}
 	    }
 	    
-	    if { [exists_and_not_null response_to_question($question_id)] || ($abstract_data_type=="choice" && ![empty_string_p [lindex $response_to_question($question_id) 0]])} {
+	    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
@@ -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.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/respond.adp,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/survey/www/respond.adp	16 Sep 2002 19:54:39 -0000	1.2
+++ openacs-4/packages/survey/www/respond.adp	8 Oct 2002 01:02:52 -0000	1.2.2.1
@@ -19,7 +19,7 @@
           <td class="tabledata">
 	    @form_vars@
             <include src="one_@display_type@" questions=@questions@>
-            <hr noshapde size="1" color="#dddddd">
+            <hr noshade size="1" color="#dddddd">
               <input type="submit" value="@button_label@">
           </td>
         </tr>
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.1.2.1
--- 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:02:52 -0000	1.1.2.1
@@ -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)