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 -N -r1.5 -r1.5.2.1
--- openacs-4/packages/workflow/sql/oracle/workflow-procedural-create.sql	3 Oct 2003 13:26:27 -0000	1.5
+++ openacs-4/packages/workflow/sql/oracle/workflow-procedural-create.sql	18 Nov 2003 17:54:57 -0000	1.5.2.1
@@ -58,18 +58,10 @@
   ) return integer
   is
   begin
-   for rec in (select cr.item_id
-                from cr_items cr, workflow_case_log wcl
-                where cr.item_id = wcl.entry_id
-                and wcl.case_id = delete_case_id)
-    loop
-        delete from workflow_case_log where entry_id = rec.item_id;
-        content_item.del(rec.item_id);
-    end loop;
-
     -- All workflow data cascades from the case id
-    delete from workflow_cases
-        where object_id = delete_case_id;
+    delete 
+    from   workflow_cases
+    where  object_id = workflow_case_pkg.del.delete_case_id;
 
     return 0;
   end del;
