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 } \