Index: openacs-4/contrib/packages/simulation/lib/sim-templates.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/sim-templates.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/simulation/lib/sim-templates.tcl 2 Dec 2003 13:46:53 -0000 1.7
+++ openacs-4/contrib/packages/simulation/lib/sim-templates.tcl 2 Dec 2003 17:29:48 -0000 1.8
@@ -17,6 +17,7 @@
set package_id [ad_conn package_id]
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]
# TODO: make this include honor the display_mode parameter
@@ -48,10 +49,13 @@
-elements {
edit {
sub_class narrow
- link_url_col edit_url
- display_template {
-
- }
+ display_template {
+
+
+
+
+
+ }
}
name {
label "Name"
@@ -74,12 +78,14 @@
}
delete {
sub_class narrow
- display_template {
-
+
-
- }
+
+
+ }
}
clone {
display_template {
@@ -101,7 +107,7 @@
#
######################################################################
-db_multirow -extend { edit_url view_url delete_url clone_url } sim_templates select_sim_templates "
+db_multirow -extend { edit_url view_url delete_url clone_url edit_p } sim_templates select_sim_templates "
select w.workflow_id,
w.pretty_name as name,
'placeholder' as description,
@@ -128,4 +134,6 @@
set delete_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/template-delete" {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]
}