Index: openacs-4/packages/simulation/www/control-bar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/control-bar.tcl,v diff -u -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/simulation/www/control-bar.tcl 31 Oct 2006 10:13:03 -0000 1.2.2.1 +++ openacs-4/packages/simulation/www/control-bar.tcl 10 Dec 2006 21:05:31 -0000 1.2.2.2 @@ -20,4 +20,7 @@ set simbuild_p [permission::permission_p -object_id $package_id -privilege sim_template_read] set siminst_p [permission::permission_p -object_id $package_id -privilege sim_inst] +set user [ad_conn user_id] +set notification_url "/notifications" + set curr_url [ad_conn url] \ No newline at end of file