Index: openacs-4/packages/simulation/www/simbuild/template-clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simbuild/template-clone.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simulation/www/simbuild/template-clone.tcl	2 Dec 2003 17:24:32 -0000	1.2
+++ openacs-4/packages/simulation/www/simbuild/template-clone.tcl	11 Dec 2003 14:24:29 -0000	1.3
@@ -4,9 +4,34 @@
     workflow_id:integer
 }
 
-set page_title "Clone a template"
+permission::require_permission -object_id [ad_conn package_id] -privilege sim_template_create
 
-set context [list $page_title]
-set package_id [ad_conn package_id]
+workflow::get -workflow_id $workflow_id -array workflow_array
 
-permission::require_permission -object_id $package_id -privilege sim_template_create
+set page_title "Clone $workflow_array(pretty_name)"
+
+set context [list [list "." "SimBuild"] $page_title]
+
+set pretty_name "Clone of $workflow_array(pretty_name)"
+
+ad_form -name clone -export { workflow_id } -edit_buttons [list [list "Clone" ok]] -form {
+    {pretty_name:text
+        {label "Name"}
+        {html {size 50}}
+    }
+} -on_request {
+
+} -on_submit {
+    set new_workflow_array(pretty_name) $pretty_name
+    set new_workflow_array(short_name) {}
+    
+    simulation::template::clone \
+        -workflow_id $workflow_id \
+        -package_key "simulation" \
+        -object_id [ad_conn package_id] \
+        -array new_workflow_array
+
+    ad_returnredirect .
+    ad_script_abort
+}
+