Index: openacs-4/contrib/packages/survey/acs-templating/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/acs-templating/Attic/widget-procs.tcl,v
diff -u -N -r1.1 -r1.1.2.1
--- openacs-4/contrib/packages/survey/acs-templating/widget-procs.tcl	23 Oct 2003 06:37:42 -0000	1.1
+++ openacs-4/contrib/packages/survey/acs-templating/widget-procs.tcl	13 Jan 2004 20:26:58 -0000	1.1.2.1
@@ -20,6 +20,15 @@
     set count 0
     foreach option $options {
 	if {$count == 0} {
+	    # answer descriptions in a list: {{desc1 no_of_answers} {desc2 no_of_answers} ...}
+	    append output "<tr align=center><td></td><td></td>"
+	    foreach answer_desc $option {
+		set answer_description [lindex $answer_desc 0]
+		set no_of_answers [lindex $answer_desc 1]
+		append output "<th colspan=\"[expr $no_of_answers + 1]\" align=\"center\">$answer_description</td>"
+	    }
+	    append output "</tr>"
+	} elseif {$count == 1} {
 	    append output "<tr><td><span style=\"font-weight: bold\">[lindex $option 0]</span></td>"
 	    foreach answer_set [lindex $option 1] {
 		append output "<td>required?</td>"