Index: openacs-4/packages/simulation/www/simplay/message.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/simulation/www/simplay/message.tcl 8 Jan 2004 15:54:01 -0000 1.15 +++ openacs-4/packages/simulation/www/simplay/message.tcl 8 Jan 2004 16:02:34 -0000 1.16 @@ -10,6 +10,8 @@ body_mime_type:optional } +# TODO: store messages in a folder specific to the case + set page_title "Message" set context [list [list "." "SimPlay"] [list [export_vars -base case { case_id }] "Case"] $page_title] set package_id [ad_conn package_id]