Index: openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	1 Jul 2001 18:57:49 -0000	1.3
+++ openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	15 Mar 2002 05:26:42 -0000	1.4
@@ -446,6 +446,25 @@
 
     return $date
 }
+
+ad_proc -public survsimp_display_types {
+} {
+    return {list table paragraph}
+}
+
+# added by Ben (far later than the code below, bt_mergepice, OMG)
+ad_proc -public survsimp_display_type_select {
+    {-name "display_type"}
+    {-value "list"}
+} {
+    set return_html "<SELECT name=$name>\n"
+    foreach val [survsimp_display_types] {
+        append return_html "<OPTION> $val\n"
+    }
+    append return_html "</SELECT>"
+
+    return $return_html
+}
             
 proc_doc survsimp_bt_mergepiece {htmlpiece values} {
     HTMLPIECE is a form usually; VALUES is an ns_set