Index: openacs-4/contrib/packages/simulation/www/simplay/about-sim.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/about-sim.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/about-sim.adp	9 Jan 2004 14:40:36 -0000	1.1
@@ -0,0 +1,6 @@
+<master src="play-master">
+  <property name="title">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<h3>Description</h3>
+@description;noquote@
\ No newline at end of file
Index: openacs-4/contrib/packages/simulation/www/simplay/about-sim.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/about-sim.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/about-sim.tcl	9 Jan 2004 14:40:36 -0000	1.1
@@ -0,0 +1,16 @@
+ad_page_contract {
+    Information about a sim.
+} {
+    case_id:integer
+}
+
+set workflow_id [simulation::case::get_element -case_id $case_id -element workflow_id]
+
+set description [simulation::template::get_element -workflow_id $workflow_id -element description]
+set description_mime_type [simulation::template::get_element -workflow_id $workflow_id -element description_mime_type]
+set description [ad_html_text_convert -from $description_mime_type -maxlen 200 -- $description]
+
+set simulation_name [simulation::template::get_element -workflow_id $workflow_id -element pretty_name]
+
+set title "About $simulation_name"
+set context [list [list . "SimPlay"] [list [export_vars -base case { case_id }] "$simulation_name"] $title]
Index: openacs-4/packages/simulation/www/simplay/about-sim.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/about-sim.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/about-sim.adp	9 Jan 2004 14:40:36 -0000	1.1
@@ -0,0 +1,6 @@
+<master src="play-master">
+  <property name="title">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<h3>Description</h3>
+@description;noquote@
\ No newline at end of file
Index: openacs-4/packages/simulation/www/simplay/about-sim.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/about-sim.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/about-sim.tcl	9 Jan 2004 14:40:36 -0000	1.1
@@ -0,0 +1,16 @@
+ad_page_contract {
+    Information about a sim.
+} {
+    case_id:integer
+}
+
+set workflow_id [simulation::case::get_element -case_id $case_id -element workflow_id]
+
+set description [simulation::template::get_element -workflow_id $workflow_id -element description]
+set description_mime_type [simulation::template::get_element -workflow_id $workflow_id -element description_mime_type]
+set description [ad_html_text_convert -from $description_mime_type -maxlen 200 -- $description]
+
+set simulation_name [simulation::template::get_element -workflow_id $workflow_id -element pretty_name]
+
+set title "About $simulation_name"
+set context [list [list . "SimPlay"] [list [export_vars -base case { case_id }] "$simulation_name"] $title]