Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/simulation/www/siminst/simulation-delete.tcl	13 Jan 2004 10:54:01 -0000	1.2
+++ openacs-4/contrib/packages/simulation/www/siminst/simulation-delete.tcl	22 Jan 2004 15:26:34 -0000	1.3
@@ -1,10 +1,13 @@
 ad_page_contract {
     Delete a simulation
+} {
+    workflow_id:integer
 }
 
 set page_title "Delete simulation"
 set context [list $page_title]
 set package_id [ad_conn package_id]
 
-# TODO: Cascading delete of the simulation
+simulation::template::delete -workflow_id $workflow_id
 
+ad_returnredirect .