Index: openacs-4/contrib/packages/simulation/www/siminst/map-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/map-create.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/simulation/www/siminst/map-create.tcl	2 Dec 2003 13:46:54 -0000	1.2
+++ openacs-4/contrib/packages/simulation/www/siminst/map-create.tcl	11 Dec 2003 15:48:08 -0000	1.3
@@ -27,10 +27,18 @@
         }
     } -on_submit {
         # Create a new template that is clone of the existing one
+
+        set new_workflow_array(pretty_name) $pretty_name
+        set new_workflow_array(short_name) {}
+        set new_workflow_array(sim_type) "dev_sim"
+        
         set workflow_id [simulation::template::clone \
                             -workflow_id $workflow_id \
-                            -pretty_name $pretty_name]
+                             -package_key "simulation" \
+                             -object_id [ad_conn package_id] \
+                             -array new_workflow_array]
 
+
         # Proceed to the task page
         ad_returnredirect [export_vars -base map-tasks {workflow_id}]
         ad_script_abort
Index: openacs-4/packages/simulation/www/siminst/map-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/map-create.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simulation/www/siminst/map-create.tcl	2 Dec 2003 13:46:54 -0000	1.2
+++ openacs-4/packages/simulation/www/siminst/map-create.tcl	11 Dec 2003 15:48:08 -0000	1.3
@@ -27,10 +27,18 @@
         }
     } -on_submit {
         # Create a new template that is clone of the existing one
+
+        set new_workflow_array(pretty_name) $pretty_name
+        set new_workflow_array(short_name) {}
+        set new_workflow_array(sim_type) "dev_sim"
+        
         set workflow_id [simulation::template::clone \
                             -workflow_id $workflow_id \
-                            -pretty_name $pretty_name]
+                             -package_key "simulation" \
+                             -object_id [ad_conn package_id] \
+                             -array new_workflow_array]
 
+
         # Proceed to the task page
         ad_returnredirect [export_vars -base map-tasks {workflow_id}]
         ad_script_abort