Index: openacs-4/contrib/packages/simulation/www/simplay/case-admin.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case-admin.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/simulation/www/simplay/case-admin.adp	27 Jan 2004 15:30:07 -0000	1.7
+++ openacs-4/contrib/packages/simulation/www/simplay/case-admin.adp	30 Jan 2004 09:44:19 -0000	1.8
@@ -12,3 +12,7 @@
   <formtemplate id="add_user"></formtemplate>
   <p></p>
 </if>
+
+<ul class="action-links">
+  <li><a href="@case_delete_url@">Delete this case</a></li>
+</ul>
Index: openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case-admin.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl	27 Jan 2004 15:30:07 -0000	1.8
+++ openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl	30 Jan 2004 09:44:19 -0000	1.9
@@ -126,3 +126,7 @@
             {options {$uncast_role_options}}
         }        
     }
+
+
+set case_delete_url [export_vars -base case-delete { case_id { return_url [ad_return_url] } }]
+
Index: openacs-4/contrib/packages/simulation/www/simplay/case-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case-delete.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/case-delete.adp	30 Jan 2004 09:44:19 -0000	1.1
@@ -0,0 +1,10 @@
+<master src="/packages/simulation/www/simulation-master">
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<p> Are you sure you want to delete this case? </p>
+
+<a href="@delete_url@" class="button">Yes, delete the case</a> 
+&nbsp;&nbsp;&nbsp;&nbsp;
+<a href="@cancel_url@" class="button">No, cancel</a>
+
Index: openacs-4/contrib/packages/simulation/www/simplay/case-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case-delete.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/case-delete.tcl	30 Jan 2004 09:44:19 -0000	1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+    Delete a case.
+} {
+    case_id:integer
+    {return_url "."}
+    {confirm_p:boolean 0}
+}
+
+
+permission::require_permission -object_id [ad_conn package_id] -privilege sim_adminplayer
+
+simulation::case::get -case_id $case_id -array case
+
+if { [template::util::is_true $confirm_p] } {
+    workflow::case::delete -case_id $case_id
+    ad_returnredirect -message "Case \"$case(label)\" has been deleted." -abort "."
+}
+
+set page_title "Delete case \"$case(label)\""
+set context [list [list "." "SimPlay"] $page_title]
+
+set delete_url [export_vars -base [ad_conn url] { case_id return_url { confirm_p 1 } }]
+set cancel_url $return_url
Index: openacs-4/packages/simulation/www/simplay/case-admin.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case-admin.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/simulation/www/simplay/case-admin.adp	27 Jan 2004 15:30:07 -0000	1.7
+++ openacs-4/packages/simulation/www/simplay/case-admin.adp	30 Jan 2004 09:44:19 -0000	1.8
@@ -12,3 +12,7 @@
   <formtemplate id="add_user"></formtemplate>
   <p></p>
 </if>
+
+<ul class="action-links">
+  <li><a href="@case_delete_url@">Delete this case</a></li>
+</ul>
Index: openacs-4/packages/simulation/www/simplay/case-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case-admin.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/simulation/www/simplay/case-admin.tcl	27 Jan 2004 15:30:07 -0000	1.8
+++ openacs-4/packages/simulation/www/simplay/case-admin.tcl	30 Jan 2004 09:44:19 -0000	1.9
@@ -126,3 +126,7 @@
             {options {$uncast_role_options}}
         }        
     }
+
+
+set case_delete_url [export_vars -base case-delete { case_id { return_url [ad_return_url] } }]
+
Index: openacs-4/packages/simulation/www/simplay/case-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case-delete.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/case-delete.adp	30 Jan 2004 09:44:19 -0000	1.1
@@ -0,0 +1,10 @@
+<master src="/packages/simulation/www/simulation-master">
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<p> Are you sure you want to delete this case? </p>
+
+<a href="@delete_url@" class="button">Yes, delete the case</a> 
+&nbsp;&nbsp;&nbsp;&nbsp;
+<a href="@cancel_url@" class="button">No, cancel</a>
+
Index: openacs-4/packages/simulation/www/simplay/case-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case-delete.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/case-delete.tcl	30 Jan 2004 09:44:19 -0000	1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+    Delete a case.
+} {
+    case_id:integer
+    {return_url "."}
+    {confirm_p:boolean 0}
+}
+
+
+permission::require_permission -object_id [ad_conn package_id] -privilege sim_adminplayer
+
+simulation::case::get -case_id $case_id -array case
+
+if { [template::util::is_true $confirm_p] } {
+    workflow::case::delete -case_id $case_id
+    ad_returnredirect -message "Case \"$case(label)\" has been deleted." -abort "."
+}
+
+set page_title "Delete case \"$case(label)\""
+set context [list [list "." "SimPlay"] $page_title]
+
+set delete_url [export_vars -base [ad_conn url] { case_id return_url { confirm_p 1 } }]
+set cancel_url $return_url