Index: openacs-4/packages/simulation/www/simplay/control-bar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/control-bar.tcl,v diff -u -r1.16.2.6 -r1.16.2.7 --- openacs-4/packages/simulation/www/simplay/control-bar.tcl 30 Nov 2004 21:48:17 -0000 1.16.2.6 +++ openacs-4/packages/simulation/www/simplay/control-bar.tcl 23 Dec 2004 09:48:27 -0000 1.16.2.7 @@ -114,6 +114,8 @@ set help_url [export_vars -base "${section_uri}object/[parameter::get -parameter SimPlayHelpFile]" { case_id role_id }] +set history_url [export_vars -base "${section_uri}object/[parameter::get -parameter SieberdamHistoryFile]" { case_id role_id }] + set curr_state [_ simulation.curr_state] db_1row get_state {