Index: openacs-4/packages/simulation/www/simbuild/role-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simbuild/role-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/www/simbuild/role-delete.tcl	13 Nov 2003 15:35:48 -0000	1.1
+++ openacs-4/packages/simulation/www/simbuild/role-delete.tcl	2 Dec 2003 17:24:32 -0000	1.2
@@ -20,7 +20,7 @@
    "
                   ]
 if { [template::util::is_true $confirm_p] || $num_of_tasks == 0 } {
-    
+    permission::require_write_permission -object_id $role_id    
     simulation::role::delete -role_id $role_id
     ad_returnredirect $return_url
 }