Index: openacs-4/contrib/packages/simulation/www/simbuild/role-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simbuild/Attic/role-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/www/simbuild/role-edit.tcl	1 Dec 2003 10:20:16 -0000	1.3
+++ openacs-4/contrib/packages/simulation/www/simbuild/role-edit.tcl	2 Dec 2003 17:24:32 -0000	1.4
@@ -46,7 +46,7 @@
         {html {size 20}}
     }
 } -edit_request {
-
+    permission::require_write_permission -object_id $role_id    
     workflow::role::get -role_id $role_id -array role_array
     set workflow_id $role_array(workflow_id)
     set name $role_array(pretty_name)
@@ -55,20 +55,20 @@
     set context [list [list "." "Sim Templates"] [list "template-edit?workflow_id=$workflow_id" "$sim_template_array(pretty_name)"] $page_title]    
 
 } -new_request {
-
+    permission::require_write_permission -object_id $workflow_id
     workflow::get -workflow_id $workflow_id -array sim_template_array
     set page_title "Add Role to $sim_template_array(pretty_name)"
     set context [list [list "." "Sim Templates"] [list "template-edit?workflow_id=$workflow_id" "$sim_template_array(pretty_name)"] $page_title]
 
 } -new_data {
-
+    permission::require_write_permission -object_id $workflow_id
     simulation::role::new \
         -template_id $workflow_id \
         -role_short_name $name \
         -role_pretty_name $name
 
 } -edit_data {
-    
+    permission::require_write_permission -object_id $role_id        
     set role_array(pretty_name) $name
 
     workflow::role::edit \