Index: openacs-4/contrib/packages/survey/tcl/survey-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/tcl/Attic/survey-procs.xql,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/contrib/packages/survey/tcl/survey-procs.xql	19 Sep 2003 16:48:03 -0000	1.1
+++ openacs-4/contrib/packages/survey/tcl/survey-procs.xql	13 Jan 2004 20:19:31 -0000	1.1.2.1
@@ -54,10 +54,16 @@
 </querytext>
 </fullquery>
 
+<fullquery name="survey_section_add_to_form.answer_descriptions">
+    <querytext>
+    select max(answer_description), count(*) from survey_block_Sections bs, survey_block_questions bq where section_id=:section_id and bs.block_section_id=bq.block_section_id group by bs.block_section_id, bq.block_section_id order by bs.block_section_id
+    </querytext>
+</fullquery>
+
 <fullquery name="survey_section_add_to_form.block_choices">
     <querytext>
-    select label,block_section_id from survey_block_questions where section_id=:section_id order by block_section_id,
-    sort_order
+     select label,bs.block_section_id from survey_block_questions bq, survey_block_Sections bs where section_id=:section_id and bs.block_section_id=bq.block_section_id order by block_section_id,
+     sort_order
     </querytext>
 </fullquery>
 
@@ -447,8 +453,6 @@
 </fullquery>
 
 
-
-
 <fullquery name="survey_block_section_candidate_p.get_questions">
     <querytext>
     select question_text,abstract_data_type, presentation_type,