Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package.sql,v
diff -u -N -r1.5 -r1.6
--- openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package.sql	27 Aug 2001 03:59:17 -0000	1.5
+++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package.sql	3 Sep 2001 05:28:28 -0000	1.6
@@ -369,6 +369,7 @@
         v_journal_id number;
     begin
         /* Add an entry to the journal */
+        dbms_output.put_line('creating journal entry');
         v_journal_id := journal_entry.new(
             object_id => start_case.case_id,
             action => 'case start',
@@ -380,13 +381,15 @@
 
         update wf_cases set state = 'active' where case_id = start_case.case_id;
 
+        dbms_output.put_line('adding token');
         add_token(
             case_id => start_case.case_id, 
             place_key => 'start',
             journal_id => v_journal_id
         );
 
         /* Turn the wheels */
+        dbms_output.put_line('sweeping transitions');
         sweep_automatic_transitions(
             case_id => start_case.case_id,
             journal_id => v_journal_id
@@ -1067,6 +1070,7 @@
          * 3. otherwise, if there is an attribute, we use that
          */
 
+        dbms_output.put_line('exec of case_deadline callback');
         /* wf_case_deadlines */
         open case_deadline_cur;
         fetch case_deadline_cur into v_deadline;
@@ -1206,7 +1210,7 @@
         v_workflow_key varchar2(100);
     begin
         select wf_token_id_seq.nextval into v_token_id from dual;
-        
+        dbms_output.put_line('case_id = ' || case_id || ', place_key = ' || place_key || ', journal_id = ' || journal_id);
         select workflow_key into v_workflow_key 
         from   wf_cases c 
         where  c.case_id = add_token.case_id;
@@ -1315,7 +1319,7 @@
         v_done_p char(1);
         v_finished_p char(1);
     begin
-
+        dbms_output.put_line('enabling transitions');
         enable_transitions(case_id => sweep_automatic_transitions.case_id);
 
         loop
@@ -1520,7 +1524,9 @@
         and    tr.transition_key = ta.transition_key;
 
         /* Default values */
-        v_party_from := -1;   /* This default value should probably be pulled from somewhere */
+        -- changed to null from -1 since acs-mail references users instead of 
+        -- parties.  DanW (dcwickstrom@earthlink.net)
+        v_party_from := null;   /* This default value should probably be pulled from somewhere */
         v_subject := 'Assignment: '||v_transition_name||' '||v_object_name;
         v_body := 'You have been assigned to a task.
 '||'
