Index: openacs-4/packages/simulation/lib/sim-templates.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-templates.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/simulation/lib/sim-templates.tcl 9 Jan 2004 14:40:03 -0000 1.15 +++ openacs-4/packages/simulation/lib/sim-templates.tcl 12 Jan 2004 15:52:44 -0000 1.16 @@ -5,10 +5,6 @@ @creation-date 2003-11-12 @cvs-id $Id$ } { - display_mode { - allowed_values {edit display} - default_value display - } size { allowed_values {short long} default_value long @@ -22,8 +18,6 @@ set actions [list "Add a template" $add_url {} \ "Import a template" "[apm_package_url_from_id $package_id]simbuild/template-load" {}] -# TODO: make this include honor the display_mode parameter - switch $size { short { set elements { @@ -115,7 +109,7 @@ # a list of templates # ###################################################################### -# TODO: limit this to see only your own templates +# TODO (.25h): limit this to see only your own templates # If you are the admin, show all templates in long mode db_multirow -extend { edit_url view_url delete_url clone_url edit_p } sim_templates select_sim_templates " @@ -148,14 +142,14 @@ " { set description [ad_html_text_convert -from $description_mime_type -maxlen 200 -- $description] - set edit_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-edit" {workflow_id} ] + set edit_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-edit" { workflow_id }] - set view_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-edit" {workflow_id} ] + set view_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-edit" { workflow_id }] - set clone_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-clone" {workflow_id} ] + set clone_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-clone" { workflow_id }] set edit_p [permission::write_permission_p -object_id $workflow_id] - set delete_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-delete" {workflow_id} ] + set delete_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-delete" { workflow_id }] }