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.4 -r1.5
--- openacs-4/packages/simulation/www/simplay/play-master.tcl	12 Jan 2004 13:43:14 -0000	1.4
+++ openacs-4/packages/simulation/www/simplay/play-master.tcl	20 Apr 2004 21:12:26 -0000	1.5
@@ -9,6 +9,25 @@
     set role_id [ns_queryget role_id]
 }
 
+# Get any simulation specific Stylesheet
+# 
+set stylesheet_link ""
+set stylesheet_name [db_string select_stylesheet {
+    select ci.name
+    from sim_simulations ss,
+         cr_items ci
+    where ss.stylesheet = ci.item_id
+      and ss.simulation_id = (select workflow_id
+                              from workflow_cases
+                              where case_id = :case_id)
+} -default {}]
+if { ![empty_string_p $stylesheet_name] } {
+    set stylesheet_url [simulation::object::content_url -name $stylesheet_name]
+    set stylesheet_link "<link rel=\"stylesheet\" type=\"text/css\" href=\"$stylesheet_url\" media=\"all\">"
+}
+
 if { [template::util::is_nil header_stuff] } {
     set header_stuff ""
 }
+
+append header_stuff "\n$stylesheet_link"
\ No newline at end of file