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.19 -r1.20
--- openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	17 Dec 2003 09:01:05 -0000	1.19
+++ openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	17 Dec 2003 14:03:49 -0000	1.20
@@ -193,7 +193,7 @@
                 }
 
                 # Map each party
-                foreach party_id $aux(enroll_groups) {
+                foreach party_id $aux($map_type) {
                     db_dml map_party_to_template {
                         insert into sim_party_sim_map
                         (simulation_id, party_id, type)
@@ -631,3 +631,27 @@
             -replace
     }
 }
+
+
+ad_proc -public simulation::template::generate_spec {
+    {-workflow_id:required}
+} {
+    Generate a spec for a workflow in array list style.
+    
+    @param  workflow_id   The id of the workflow to generate a spec for.
+    @return The spec for the workflow.
+
+    @author Lars Pind (lars@collaboraid.biz)
+    @see workflow::new
+} {
+    set spec [workflow::generate_spec \
+                  -workflow_id $workflow_id \
+                  -handlers {
+                      roles simulation::role 
+                      actions simulation::action
+                      states workflow::state::fsm
+                  }]
+
+    return $spec
+}
+