Index: openacs-4/packages/simulation/www/simplay/play-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/play-master.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simulation/www/simplay/play-master.tcl	20 Apr 2004 21:12:26 -0000	1.5
+++ openacs-4/packages/simulation/www/simplay/play-master.tcl	30 Nov 2004 21:09:17 -0000	1.6
@@ -9,6 +9,17 @@
     set role_id [ns_queryget role_id]
 }
 
+simulation::case::get -case_id $case_id -array case
+
+if { ![exists_and_not_null workflow_id] } {
+    set workflow_id $case(workflow_id)
+}
+
+set simulation_name [simulation::template::get_element \
+                      -workflow_id $workflow_id -element pretty_name]
+
+set simulation_title "${simulation_name} — $case(label)"
+
 # Get any simulation specific Stylesheet
 # 
 set stylesheet_link ""