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>