Index: openacs-4/contrib/packages/simulation/tcl/template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/template-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	18 Dec 2003 17:04:11 -0000	1.27
+++ openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	19 Dec 2003 09:42:33 -0000	1.28
@@ -558,16 +558,11 @@
     # Create the cases and for each case assign users to roles    
     while { $total_users > 0 } {
 
-        # TODO: implement simulation::case::new
-#         set object_id [simulation::case::new \
-#                            -workflow_id $workflow_id]
-#         set case_id [workflow::case::get_id \
-#                          -object_id $object_id \
-#                          -workflow_short_name $workflow_short_name]
-        # Temporary while waiting for simulation::case::new proc:
-        set case_id [workflow::case::new \
-                         -workflow_id $workflow_id \
-                         -object_id [ad_conn package_id]]
+        set sim_case_id [simulation::case::new \
+                             -workflow_id $workflow_id]
+        set case_id [workflow::case::get_id \
+                         -object_id $sim_case_id \
+                         -workflow_short_name $workflow_short_name]
         
         # Assign users from the specified group for each role
         array unset row