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.15.2.1
--- 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	22 Mar 2004 15:49:03 -0000	1.15.2.1
@@ -39,7 +39,10 @@
         {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}}}
+    }
 } -on_request {
 
     foreach elm { 
@@ -90,6 +93,11 @@
         set enroll_end [clock format [expr [clock seconds] + 2*$one_week + $default_duration] -format "%Y-%m-%d"]
     }
 
+    set show_states_p [db_string gettheflag_states {
+      select show_states_p
+        from sim_simulations
+       where simulation_id=:workflow_id}]
+
 } -on_submit {
 
     # Date validation
@@ -163,6 +171,12 @@
         -workflow_id $workflow_id \
         -array row
 
+    db_dml show_states_p {
+      update sim_simulations
+         set show_states_p = :show_states_p
+         where simulation_id = :workflow_id
+    }
+
     simulation::template::flush_inst_state -workflow_id $workflow_id
     wizard forward
 }