Index: openacs-4/packages/simulation/www/siminst/simulation-participants.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-participants.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/simulation/www/siminst/simulation-participants.tcl 12 Jan 2004 09:23:10 -0000 1.4 +++ openacs-4/packages/simulation/www/siminst/simulation-participants.tcl 12 Jan 2004 11:35:33 -0000 1.5 @@ -1,9 +1,11 @@ ad_page_contract { - Create a new simulation + Do enrollment and invitations for a simulation. } { workflow_id:integer } +permission::require_write_permission -object_id $workflow_id + simulation::template::get -workflow_id $workflow_id -array sim_template set group_admin_url [export_vars -base "[subsite::get_element -element url]admin/group-types/one" { { group_type group } }]