Index: openacs-4/packages/workflow/workflow.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/workflow.info,v
diff -u -r1.5.2.4 -r1.5.2.5
--- openacs-4/packages/workflow/workflow.info	23 Apr 2003 08:57:37 -0000	1.5.2.4
+++ openacs-4/packages/workflow/workflow.info	9 May 2003 13:49:36 -0000	1.5.2.5
@@ -8,7 +8,7 @@
     <singleton-p>t</singleton-p>
     <auto-mount>workflow</auto-mount>
 
-    <version name="1.0d2" url="http://openacs.org/repository/download/apm/workflow-1.0d2.apm">
+    <version name="1.0d3" url="http://openacs.org/repository/download/apm/workflow-1.0d3.apm">
     <database-support>
         <database>oracle</database>
         <database>postgresql</database>
@@ -22,7 +22,7 @@
 &lt;p&gt;
 For more information, see: &lt;a href=&quot;http://www.collaboraid.biz/developer/workflow-spec&quot;&gt;the workflow specification&lt;/a&gt;.</description>
 
-        <provides url="workflow" version="1.0d2"/>
+        <provides url="workflow" version="1.0d3"/>
         <requires url="notifications" version="0.3d"/>
         <requires url="acs-content-repository" version="4.6d1"/>
         <requires url="acs-kernel" version="4.6.2"/>
Index: openacs-4/packages/workflow/sql/oracle/workflow-procedural-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/sql/oracle/workflow-procedural-create.sql,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/workflow/sql/oracle/workflow-procedural-create.sql	7 Mar 2003 12:22:33 -0000	1.2.2.1
+++ openacs-4/packages/workflow/sql/oracle/workflow-procedural-create.sql	9 May 2003 13:50:02 -0000	1.2.2.2
@@ -69,7 +69,7 @@
 
     -- All workflow data cascades from the case id
     delete from workflow_cases
-        where object_id = delete_case_id;
+        where case_id = delete_case_id;
 
     return 0;
   end delete;
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/workflow/sql/oracle/upgrade/upgrade-1.0d2-1.0d3.sql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/workflow/sql/postgresql/workflow-procedural-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/sql/postgresql/workflow-procedural-create.sql,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/workflow/sql/postgresql/workflow-procedural-create.sql	7 Mar 2003 12:22:58 -0000	1.6.2.1
+++ openacs-4/packages/workflow/sql/postgresql/workflow-procedural-create.sql	9 May 2003 13:52:01 -0000	1.6.2.2
@@ -48,7 +48,7 @@
 
     -- All workflow data cascades from the case id
     delete from workflow_cases
-      where object_id = delete_case_id;    
+      where case_id = delete_case_id;    
 
   return 0; 
 end;' language 'plpgsql';
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/workflow/sql/postgresql/upgrade/upgrade-1.0d2-1.0d3.sql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/workflow/tcl/case-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs-oracle.xql,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/workflow/tcl/case-procs-oracle.xql	7 Mar 2003 12:23:25 -0000	1.2.2.1
+++ openacs-4/packages/workflow/tcl/case-procs-oracle.xql	9 May 2003 13:52:55 -0000	1.2.2.2
@@ -93,5 +93,12 @@
     </querytext>
    </fullquery>
 
+   <fullquery name="workflow::case::delete.delete_case">
+    <querytext>
+        begin
+            :1 := workflow_case.delete(:case_id);
+        end;
+    </querytext>
+  </fullquery>
 
 </queryset>
Index: openacs-4/packages/workflow/tcl/case-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs-postgresql.xql,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/workflow/tcl/case-procs-postgresql.xql	7 Mar 2003 12:23:25 -0000	1.3.2.1
+++ openacs-4/packages/workflow/tcl/case-procs-postgresql.xql	9 May 2003 13:52:55 -0000	1.3.2.2
@@ -85,4 +85,10 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="workflow::case::delete.delete_case">
+    <querytext>
+	select workflow_case__delete(:case_id)
+    </querytext>
+  </fullquery>
+
 </queryset>
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