Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/postgresql/workflow-case-package.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/postgresql/workflow-case-package.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/obsolete-packages/acs-workflow/sql/postgresql/workflow-case-package.sql	18 Apr 2001 05:41:27 -0000	1.7
+++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/postgresql/workflow-case-package.sql	18 Apr 2001 23:27:46 -0000	1.8
@@ -151,13 +151,13 @@
 create function workflow_case__new (integer,varchar,varchar,integer,timestamp,integer,varchar)
 returns integer as '
 declare
-  new__case_id                alias for $1;  
+  new__case_id                alias for $1;  -- default null  
   new__workflow_key           alias for $2;  
-  new__context_key            alias for $3;  
+  new__context_key            alias for $3;  -- default null
   new__object_id              alias for $4;  
-  new__creation_date          alias for $5;  
-  new__creation_user          alias for $6;  
-  new__creation_ip            alias for $7;  
+  new__creation_date          alias for $5;  -- default now()
+  new__creation_user          alias for $6;  -- default null
+  new__creation_ip            alias for $7;  -- default null
   v_case_id                   integer;
   v_workflow_case_table       varchar;
   v_context_key_for_query     varchar;
@@ -266,9 +266,9 @@
 returns integer as '
 declare
   start_case__case_id                alias for $1;  
-  start_case__creation_user          alias for $2;  
-  start_case__creation_ip            alias for $3;  
-  start_case__msg                    alias for $4;  
+  start_case__creation_user          alias for $2;  -- default null  
+  start_case__creation_ip            alias for $3;  -- default null
+  start_case__msg                    alias for $4;  -- default null
   v_journal_id                       integer;        
 begin
         /* Add an entry to the journal */
@@ -357,9 +357,9 @@
 returns integer as '
 declare
   suspend__case_id                alias for $1;  
-  suspend__user_id                alias for $2;  
-  suspend__ip_address             alias for $3;  
-  suspend__msg                    alias for $4;  
+  suspend__user_id                alias for $2;  -- default null  
+  suspend__ip_address             alias for $3;  -- default null
+  suspend__msg                    alias for $4;  -- default null
   v_state                         varchar;   
   v_journal_id                    integer;        
 begin
@@ -396,9 +396,9 @@
 returns integer as '
 declare
   resume__case_id                alias for $1;  
-  resume__user_id                alias for $2;  
-  resume__ip_address             alias for $3;  
-  resume__msg                    alias for $4;  
+  resume__user_id                alias for $2;  -- default null  
+  resume__ip_address             alias for $3;  -- default null
+  resume__msg                    alias for $4;  -- default null
   v_state                        varchar;   
   v_journal_id                   integer;        
 begin
@@ -435,9 +435,9 @@
 returns integer as '
 declare
   cancel__case_id                alias for $1;  
-  cancel__user_id                alias for $2;  
-  cancel__ip_address             alias for $3;  
-  cancel__msg                    alias for $4;  
+  cancel__user_id                alias for $2;  -- default null  
+  cancel__ip_address             alias for $3;  -- default null
+  cancel__msg                    alias for $4;  -- default null
   v_state                        varchar;   
   v_journal_id                   integer;        
 begin
@@ -524,7 +524,7 @@
   begin_task_action__action                 alias for $2;  
   begin_task_action__action_ip              alias for $3;  
   begin_task_action__user_id                alias for $4;  
-  begin_task_action__msg                    alias for $5;  
+  begin_task_action__msg                    alias for $5;  -- default null  
   v_state                                   varchar;
   v_journal_id                              integer;
   v_case_id                                 integer;
@@ -657,7 +657,7 @@
   task_action__action                 alias for $2;  
   task_action__action_ip              alias for $3;  
   task_action__user_id                alias for $4;  
-  task_action__msg                    alias for $5;  
+  task_action__msg                    alias for $5;  -- default null  
   v_journal_id                        integer;       
 begin
         v_journal_id := workflow_case__begin_task_action(
@@ -1282,7 +1282,7 @@
   consume_token__case_id                alias for $1;  
   consume_token__place_key              alias for $2;  
   consume_token__journal_id             alias for $3;  
-  consume_token__task_id                alias for $4;  
+  consume_token__task_id                alias for $4;  -- default null  
 begin
         if consume_token__task_id is null then
             update wf_tokens