Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package-body.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package-body.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package-body.sql	12 Feb 2002 01:35:16 -0000	1.4
+++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package-body.sql	30 Sep 2003 12:10:00 -0000	1.5
@@ -286,38 +286,38 @@
     end start_case;
 
 
-    procedure delete(
+    procedure del (
         case_id         in number
     )
     is
         v_workflow_case_table varchar2(30);
     begin
         /* delete attribute_value_audit, tokens, tasks  */
-        delete from wf_attribute_value_audit where case_id = workflow_case.delete.case_id;
-        delete from wf_case_assignments where case_id = workflow_case.delete.case_id;
-        delete from wf_case_deadlines where case_id = workflow_case.delete.case_id;
-        delete from wf_tokens where case_id = workflow_case.delete.case_id;
-        delete from wf_task_assignments where task_id in (select task_id from wf_tasks where case_id = workflow_case.delete.case_id);
-        delete from wf_tasks where case_id = workflow_case.delete.case_id;
+        delete from wf_attribute_value_audit where case_id = workflow_case.del.case_id;
+        delete from wf_case_assignments where case_id = workflow_case.del.case_id;
+        delete from wf_case_deadlines where case_id = workflow_case.del.case_id;
+        delete from wf_tokens where case_id = workflow_case.del.case_id;
+        delete from wf_task_assignments where task_id in (select task_id from wf_tasks where case_id = workflow_case.del.case_id);
+        delete from wf_tasks where case_id = workflow_case.del.case_id;
 
         /* delete the journal */
-        journal_entry.delete_for_object(workflow_case.delete.case_id);
+        journal_entry.delete_for_object(workflow_case.del.case_id);
         
         /* delete from the workflow-specific cases table */
         select table_name into v_workflow_case_table
         from   acs_object_types ot, wf_cases c
-        where  c.case_id = workflow_case.delete.case_id
+        where  c.case_id = workflow_case.del.case_id
         and    object_type = c.workflow_key;
         
         execute immediate 'delete from '||v_workflow_case_table||' where case_id = :case_id'
-        using in workflow_case.delete.case_id;
+        using in workflow_case.del.case_id;
 
         /* delete from the generic cases table */
-        delete from wf_cases where case_id = workflow_case.delete.case_id;
+        delete from wf_cases where case_id = workflow_case.del.case_id;
 
         /* delete from acs-objects */
-        acs_object.delete(workflow_case.delete.case_id);
-    end delete;
+        acs_object.del(workflow_case.del.case_id);
+    end del;
 
 
     procedure suspend(
