Index: openacs-4/contrib/packages/simulation/www/simplay/case.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/contrib/packages/simulation/www/simplay/case.tcl	19 Dec 2003 14:00:39 -0000	1.2
+++ openacs-4/contrib/packages/simulation/www/simplay/case.tcl	5 Jan 2004 14:10:37 -0000	1.3
@@ -4,10 +4,9 @@
     case_id:integer
 }
 
-# TODO: Name of case
-# TODO: simulation::case::get - gets information about the case
+set case_name [simulation::case::get_element -case_id $case_id -element label]
 
-set title "Case"
+set title "Case $case_name"
 set context [list [list . "SimPlay"] $title]
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]