Index: openacs-4/packages/simulation/www/simbuild/template-spec.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simbuild/template-spec.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/simulation/www/simbuild/template-spec.tcl 26 Jan 2004 16:07:22 -0000 1.4 +++ openacs-4/packages/simulation/www/simbuild/template-spec.tcl 27 Jan 2004 10:33:16 -0000 1.5 @@ -8,9 +8,12 @@ {deep_p:boolean "f"} } -set page_title "Template Specifiaction" -set context [list [list "." "SimBuild"] [list [export_vars -base template-edit { workflow_id }] "Template"] $page_title] +set page_title "Export" +simulation::template::get -workflow_id $workflow_id -array sim_template_array + +set context [list [list "." "SimBuild"] [list [export_vars -base template-edit { workflow_id }] "Editing $sim_template_array(pretty_name)"] $page_title] + set spec [simulation::template::generate_spec -workflow_id $workflow_id -deep=[template::util::is_true $deep_p]] set spec [util::array_list_spec_pretty $spec]