Index: openacs-4/packages/simple-survey/www/admin/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/one.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simple-survey/www/admin/one.tcl	14 Mar 2002 19:43:19 -0000	1.3
+++ openacs-4/packages/simple-survey/www/admin/one.tcl	15 Mar 2002 05:26:42 -0000	1.4
@@ -22,7 +22,7 @@
 first_names || ' ' || last_name as creator_name, creation_user, 
 creation_date, decode(enabled_p, 't', 'Enabled', 'f', 'Disabled') as survey_status, enabled_p,
 decode(single_response_p, 't', 'One', 'f', 'Multiple') as survey_response_limit,
-decode(single_editable_p, 't', 'Editable', 'f', 'Non-editable') as survey_editable_single, type
+decode(single_editable_p, 't', 'Editable', 'f', 'Non-editable') as survey_editable_single, type, display_type
 from survsimp_surveys, acs_objects, persons
 where object_id = survey_id
 and person_id = creation_user
@@ -50,6 +50,25 @@
 }
 append toggle_enabled_link "</a> \]"
 
+# Display Type (ben)
+set display_type_toggle "\[ "
+set d_count 0
+foreach one_disp_type [survsimp_display_types] {
+    if {$one_disp_type == $display_type} {
+        continue
+    }
+
+    if {$d_count > 0} {
+        append display_type_toggle " | "
+    }
+
+    incr d_count
+
+    append display_type_toggle "<a href=survey-display-type-edit?survey_id=$survey_id&display_type=$one_disp_type>$one_disp_type</a>"
+}
+
+append display_type_toggle " \]"
+
 set questions_summary "<form><ol>\n"
 set count 0