Index: openacs-4/packages/simulation/www/siminst/simulation-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-edit.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/simulation/www/siminst/simulation-edit.tcl	29 Jan 2004 13:29:35 -0000	1.15
+++ openacs-4/packages/simulation/www/siminst/simulation-edit.tcl	20 Apr 2004 21:12:26 -0000	1.16
@@ -8,6 +8,8 @@
 
 simulation::template::get -workflow_id $workflow_id -array sim_template
 
+set stylesheet_options [simulation::object::get_object_type_options -object_type sim_stylesheet]
+
 ad_form -export { workflow_id } -name simulation -form {
     {pretty_name:text
         {label "Simulation Name"}
@@ -39,17 +41,26 @@
         {html {cols 60 rows 8}}
         {help_text "This description is visible to users during enrollment."}
     }
-
+    {show_states_p:boolean(radio),optional
+      {label "Should we show states?<br>(i.e. Started, Open, Written...)"}
+      {options {{"Show states" t} {"Don't show states" f}}}
+    }
+    {stylesheet:integer(select),optional
+        {label "CSS Stylesheet"}
+        {options $stylesheet_options}
+    }
 } -on_request {
 
     foreach elm { 
-        send_start_note_date 
+        send_start_note_date
         case_start
         case_end
         pretty_name
         enroll_type
         enroll_start
         enroll_end
+        show_states_p
+        stylesheet
     } { 
         set $elm $sim_template($elm)
     }
@@ -155,7 +166,8 @@
         break
     }
 
-    foreach elm { send_start_note_date case_start case_end pretty_name description description_mime_type enroll_type enroll_start enroll_end } {
+    foreach elm { send_start_note_date case_start case_end pretty_name description description_mime_type enroll_type enroll_start enroll_end 
+                  show_states_p stylesheet } {
         set row($elm) [set $elm]
     }