Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/workflow/tcl/role-procs.tcl	28 Aug 2003 09:41:59 -0000	1.8
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	6 Nov 2003 15:42:59 -0000	1.9
@@ -100,6 +100,19 @@
     return $role_id
 }
 
+ad_proc -public workflow::role::delete {
+    {-role_id:required}
+} {
+    Delete workflow role with given id.
+
+    @author Peter Marklund
+} {
+    db_dml delete_role {
+        delete from workflow_roles
+        where role_id = :role_id
+    }
+}
+
 ad_proc -public workflow::role::get_id {
     {-workflow_id:required}
     {-short_name:required}