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.16 -r1.17 --- openacs-4/packages/simulation/www/siminst/simulation-edit.tcl 20 Apr 2004 21:12:26 -0000 1.16 +++ openacs-4/packages/simulation/www/siminst/simulation-edit.tcl 30 Nov 2004 21:09:17 -0000 1.17 @@ -8,8 +8,6 @@ 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"} @@ -45,10 +43,6 @@ {label "Should we show states?
(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 { @@ -60,7 +54,6 @@ enroll_start enroll_end show_states_p - stylesheet } { set $elm $sim_template($elm) } @@ -167,7 +160,7 @@ } 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 } { + show_states_p } { set row($elm) [set $elm] }