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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/survey/acs-templating/widget-procs.tcl	23 Oct 2003 06:37:42 -0000	1.1
@@ -0,0 +1,52 @@
+ad_proc -public template::widget::block { element_reference tag_attributes } {
+    widget for blocks of radio-buttoned questions
+} {
+    upvar $element_reference element
+    
+    if { [info exists element(html)] } {
+	array set attributes $element(html)
+    }
+    
+    if { [info exists element(value)] } {
+	set value $element(value)
+    } else {
+	set value {}
+    }
+
+    array set attributes $tag_attributes
+    
+    set output ""
+    set options $element(options)
+    set count 0
+    foreach option $options {
+	if {$count == 0} {
+	    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>"
+		foreach answer $answer_set {
+		    append output "<td>$answer</td>"
+		}
+	    }
+	    append output "</tr>"
+	} else {
+	    append output "<tr><td><span style=\"font-weight: bold\">[lindex $option 0]</span></td>"
+	    foreach question [lindex $option 1] {
+		set name [lindex $question 0]
+		set required_p [lindex $question 1]
+		append output "<td>[ad_decode $required_p "t" "<span style=\"color: #f00;\">*</span>" "&nbsp;"]</td>"
+		foreach choice [lindex $question 2] {
+		    if {[lsearch -exact $value $choice]==-1} {
+			append output "<td><input type=\"radio\" name=\"$name\" value=\"$choice\"></td>"
+		    } else {
+			append output "<td><input type=\"radio\" name=\"$name\" value=\"$choice\" checked></td>"
+		    }
+		}
+	    }
+	    append output "</tr>"
+	}
+	incr count
+    }
+    return "<table>$output</table>"
+    
+}
+