Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql	25 Apr 2001 04:52:44 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql	14 May 2001 04:55:12 -0000	1.2
@@ -21,14 +21,23 @@
  
 <fullquery name="wf_case_new.workflow_case_new">      
       <querytext>
-      begin :1 := workflow_case.new([join $arguments ", "]); end;
+      begin :1 := workflow_case.new(case_id => :case_id,
+                                    workflow_key => :workflow_key,
+                                    context_key => :context_key,
+                                    object_id => :object_id,
+                                    creation_user => :user_id,
+                                    creation_ip => :creation_ip
+                                   ); end;
       </querytext>
 </fullquery>
 
  
 <fullquery name="wf_case_new.workflow_case_start_case">      
       <querytext>
-      begin workflow_case.start_case([join $arguments ", "]); end;
+      begin workflow_case.start_case(case_id => :case_id,
+                                     creation_user => :user_id,
+                                     creation_ip => :creation_ip
+                                    ); end;
       </querytext>
 </fullquery>
 
Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-postgresql.xql	12 May 2001 19:13:35 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-postgresql.xql	14 May 2001 04:55:12 -0000	1.4
@@ -20,7 +20,14 @@
 <fullquery name="wf_case_new.workflow_case_new">      
       <querytext>
 
-      select workflow_case__new([join $arguments ", "]);
+      select workflow_case__new(:case_id,
+                                :workflow_key,
+                                :context_key,
+                                :object_id,
+                                now(),
+                                :user_id,
+                                :creation_ip
+                                )
 
       </querytext>
 </fullquery>
@@ -29,7 +36,11 @@
 <fullquery name="wf_case_new.workflow_case_start_case">      
       <querytext>
 
-      select workflow_case__start_case([join $arguments ", "])
+      select workflow_case__start_case(:case_id,
+                                       :user_id,
+                                       :creation_ip,
+                                       null
+                                       )
 
       </querytext>
 </fullquery>
Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl	14 May 2001 04:55:12 -0000	1.2
@@ -611,26 +611,14 @@
     set user_id [ad_get_user_id]
     set creation_ip [ad_conn peeraddr]
 
-
-    set arguments [list]
-    if { [info exists case_id] } {
-	lappend arguments {case_id => :case_id}
+    if { ![info exists case_id] } {
+        set case_id ""
     } 
-    lappend arguments {workflow_key => :workflow_key}
-    lappend arguments {context_key => :context_key}
-    lappend arguments {object_id => :object_id}
-    lappend arguments {creation_user => :user_id}
-    lappend arguments {creation_ip => :creation_ip}
     
-    set case_id [db_exec_plsql workflow_case_new "begin :1 := workflow_case.new([join $arguments ", "]); end;"]
+    set case_id [db_exec_plsql workflow_case_new ""]
 
-    set arguments [list]
-    lappend arguments {case_id => :case_id}
-    lappend arguments {creation_user => :user_id}
-    lappend arguments {creation_ip => :creation_ip}
+    db_exec_plsql workflow_case_start_case ""
 
-    db_exec_plsql workflow_case_start_case "begin workflow_case.start_case([join $arguments ", "]); end;"
-
     return $case_id
 }
 
Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/index.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/index.xql	3 May 2001 01:14:21 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/index.xql	14 May 2001 04:55:12 -0000	1.2
@@ -11,7 +11,7 @@
            0 as num_unassigned_tasks
     from   wf_workflows w left outer join wf_cases c
              on (w.workflow_key = c.workflow_key and c.state = 'active'),
-           acs_object_types t, 
+           acs_object_types t
     where  w.workflow_key = t.object_type
     group  by w.workflow_key, t.pretty_name, w.description
     order  by t.pretty_name