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.9 -r1.10
--- openacs-4/packages/simulation/lib/sim-templates.tcl 11 Dec 2003 13:21:52 -0000 1.9
+++ openacs-4/packages/simulation/lib/sim-templates.tcl 11 Dec 2003 15:32:42 -0000 1.10
@@ -16,89 +16,89 @@
}
set package_id [ad_conn package_id]
-set add_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-edit" ]
+set add_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-edit"]
set create_p [permission::permission_p -object_id $package_id -privilege sim_template_create]
+set actions [list "Add a template" $add_url {} \
+ "Load a template" "[apm_package_url_from_id $package_id]simbuild/template-load" {}]
+
# TODO: make this include honor the display_mode parameter
switch $size {
short {
- template::list::create \
- -name sim_templates \
- -multirow sim_templates \
- -actions " {Add a template} $add_url " \
- -elements {
- name {
- label "Template"
- link_url_col edit_url
- orderby upper(ot.pretty_name)
- }
- role_count {
- label "Roles"
- }
- task_count {
- label "Tasks"
- }
- }
+ set elements {
+ name {
+ label "Template"
+ link_url_col edit_url
+ orderby upper(ot.pretty_name)
+ }
+ role_count {
+ label "Roles"
+ }
+ task_count {
+ label "Tasks"
+ }
+ }
}
default {
- template::list::create \
- -name sim_templates \
- -multirow sim_templates \
- -actions " {Add a template} $add_url " \
- -elements {
- edit {
- sub_class narrow
- display_template {
-
-
-
-
-
- }
- }
- name {
- label "Name"
- orderby upper(ot.pretty_name)
- link_url_col view_url
- }
- description {
- label "Description"
- orderby r.description
- }
- created_by {
- label "Created by"
- orderby r.createdby
- }
- role_count {
- label "Roles"
- }
- task_count {
- label "Tasks"
- }
- delete {
- sub_class narrow
- display_template {
-
-
-
-
-
- }
- }
- clone {
- display_template {
- Clone this template
- }
-
+ set elements {
+ edit {
+ sub_class narrow
+ display_template {
+
+
+
+
+
}
-
- }
+ }
+ name {
+ label "Name"
+ orderby upper(ot.pretty_name)
+ link_url_col view_url
+ }
+ description {
+ label "Description"
+ orderby r.description
+ }
+ created_by {
+ label "Created by"
+ orderby r.createdby
+ }
+ role_count {
+ label "Roles"
+ }
+ task_count {
+ label "Tasks"
+ }
+ delete {
+ sub_class narrow
+ display_template {
+
+
+
+
+
+ }
+ }
+ clone {
+ display_template {
+ Clone this template
+ }
+
+ }
+ }
}
}
+template::list::create \
+ -name sim_templates \
+ -multirow sim_templates \
+ -actions $actions \
+ -elements $elements
+
######################################################################
#
# sim_templates