Index: openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl 7 Jan 2004 15:54:55 -0000 1.14 +++ openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl 7 Jan 2004 16:27:35 -0000 1.15 @@ -27,23 +27,23 @@ set role_${role_id}_pretty_name [workflow::role::get_element -role_id $role_id -element pretty_name] if { $num_groups > 0 } { - lappend form [list parties_${role_id}:text(checkbox),multiple,optional \ - [list label \$role_${role_id}_pretty_name] \ - {options $eligible_groups} \ - {section "Roles"} \ - ] + lappend form [list \ + users_per_case_${role_id}:integer \ + [list label "Number of users for \$role_${role_id}_pretty_name"] \ + {value 1} \ + {html {size 2}} \ + [list section "\$role_${role_id}_pretty_name"] + ] } - lappend form [list \ - users_per_case_${role_id}:integer \ - {label "Number of users per role"} \ - {value 1} \ - {html {size 2}} \ - {section "Roles"} - ] - + lappend form [list parties_${role_id}:text(checkbox),multiple,optional \ + [list label "Cast \$role_${role_id}_pretty_name from these groups"] \ + {options $eligible_groups} \ + [list section "\$role_${role_id}_pretty_name"] + ] } + ad_form \ -name actors \ -export { workflow_id } \