Index: openacs-4/contrib/packages/simulation/www/simbuild/template-load.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simbuild/Attic/template-load.tcl,v
diff -u -N
--- openacs-4/contrib/packages/simulation/www/simbuild/template-load.tcl	7 Jan 2004 13:12:17 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,43 +0,0 @@
-ad_page_contract {
-    Load a simulation from a spec
-
-}
-
-permission::require_permission -object_id [ad_conn package_id] -privilege sim_template_create
-
-set page_title "Load Template"
-
-set context [list [list "." "SimBuild"] $page_title]
-
-ad_form -name load -edit_buttons [list [list "Load" ok]] -form {
-    {pretty_name:text
-        {label "Name"}
-        {html {size 50}}
-    }
-    {spec:text(textarea),nospell
-        {label "Spec"}
-        {help_text {Copy and paste the specification here.  A specification is a plain-text file which can be generated when editing a template.}}
-        {html {cols 80 rows 10}}
-    }
-} -on_request {
-
-} -on_submit {
-    with_catch errmsg {
-        set row(pretty_name) $pretty_name
-        set row(short_name) {}
-        simulation::template::new_from_spec \
-            -package_key "simulation" \
-            -object_id [ad_conn package_id] \
-            -spec $spec \
-            -array row
-    } {
-        global errorInfo
-        ns_log Error "Error loading workflow: $errorInfo"
-        form set_error load spec $errmsg
-        break
-    }
-
-    ad_returnredirect .
-    ad_script_abort
-}
-