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 -N -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
 }