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.10 -r1.11 --- openacs-4/packages/simulation/www/siminst/simulation-participants.tcl 23 Jan 2004 13:18:43 -0000 1.10 +++ openacs-4/packages/simulation/www/siminst/simulation-participants.tcl 27 Jan 2004 09:58:43 -0000 1.11 @@ -4,12 +4,19 @@ workflow_id:integer } -# TODO (.5h): Dynamically change "Neither invited nor mandatory" to "Can self-enroll", or "Not participating" depending on the enrollment_type (open/closed) - permission::require_write_permission -object_id $workflow_id simulation::template::get -workflow_id $workflow_id -array sim_template +switch $sim_template(enroll_type) { + "closed" { + set neither_label "Not participating" + } + "open" { + set neither_label "Can self-enroll" + } +} + set group_admin_url [export_vars -base "[subsite::get_element -element url]admin/group-types/one" { { group_type group } }] set permission_group_name [simulation::permission_group_name] @@ -77,7 +84,7 @@ n_users { label "\# Users" display_eval {[lc_numeric $n_users]} - html { align right } + html { align center } } invited_p { label "Invited" @@ -94,7 +101,7 @@ html { align center } } neither { - label "Neither invited nor mandatory" + label $neither_label display_template { checked="checked"> }