Index: openacs-4/packages/workflow/tcl/case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v
diff -u -r1.6.2.8 -r1.6.2.9
--- openacs-4/packages/workflow/tcl/case-procs.tcl	5 May 2003 10:09:49 -0000	1.6.2.8
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	9 May 2003 13:52:55 -0000	1.6.2.9
@@ -24,13 +24,13 @@
     {-object_id:required}
 } {
     Internal procedure that creates a new workflow case in the
-    database. Should not be used by applications.
+    database. Should not be used by applications. Use workflow::case::new instead.
 
     @param object_id The object_id which the case is about
     @param workflow_short_name The short_name of the workflow.
     @return The case_id of the case. Returns the empty string if no case could be found.
 
-    @see 
+    @see workflow::case::new
 
     @author Lars Pind (lars@collaboraid.biz)
 } {
@@ -147,6 +147,18 @@
     return $row($element)
 }
 
+ad_proc -public workflow::case::delete {
+    {-case_id:required}
+} {
+    Delete a workflow case.
+
+    @param case_id The case_id you wish to delete
+
+    @author Simon Carstensen (simon@collaboraid.biz)
+} {
+    db_exec_plsql delete_case {}
+}
+
 ad_proc -public workflow::case::get_user_roles {
     {-case_id:required}
     -user_id