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] } }]
+