Index: openacs-4/packages/workflow/tcl/case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/workflow/tcl/case-procs.tcl	22 Feb 2006 01:03:47 -0000	1.38
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	1 Mar 2006 13:16:34 -0000	1.39
@@ -21,6 +21,7 @@
 
 ad_proc -private workflow::case::insert {
     {-workflow_id:required}
+    {-case_id {}}
     {-object_id:required}
 } {
     Internal procedure that creates a new workflow case in the
@@ -37,7 +38,9 @@
     @author Lars Pind (lars@collaboraid.biz)
 } {
     db_transaction {
-        set case_id [db_nextval "workflow_cases_seq"]
+	if { ![exists_and_not_null case_id] } {
+	    set case_id [db_nextval "workflow_cases_seq"]
+	}
         
         # Create the case
         db_dml insert_case {}
@@ -52,6 +55,7 @@
 ad_proc -public workflow::case::new {
     {-no_notification:boolean}
     -workflow_id:required
+    {-case_id {}}
     {-object_id {}}
     {-comment {}}
     {-comment_mime_type {}}
@@ -127,6 +131,7 @@
         # Insert the case
         set case_id [insert \
                          -workflow_id $workflow_id \
+                         -case_id $case_id \
                          -object_id $object_id]
 
         # Assign roles