Index: openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/Attic/simulation-casting-2.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl 16 Dec 2003 11:34:33 -0000 1.6
+++ openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl 16 Dec 2003 16:00:34 -0000 1.7
@@ -21,6 +21,8 @@
set in_three_months_date [clock format [expr [clock seconds] + 3*3600*24*31] -format "%Y %m %d"]
set in_four_months_date [clock format [expr [clock seconds] + 4*3600*24*31] -format "%Y %m %d"]
+set eligible_groups [simulation::groups_eligible_for_casting]
+
ad_form -export { workflow_id } -name simulation -form {
{enroll_start:date,optional
{label "Enrollment start date"}
@@ -54,12 +56,12 @@
}
{enroll_groups:integer(checkbox),multiple,optional
{label "Enroll all users in these groups"}
- {options {[simulation::groups_eligible_for_casting]}}
+ {options $eligible_groups}
{help_text {Use Group Administration to add groups}}
}
{invite_groups:integer(checkbox),multiple,optional
- {label "Invite all users in these groups"}
- {options {[simulation::groups_eligible_for_casting]}}
+ {label "Invite all users in these groups (mockup only)"}
+ {options $eligible_groups}
{help_text {Use Group Administration to add groups}}
}
} -on_request {
@@ -80,8 +82,9 @@
set sim_template(case_end) $case_end_ansi
set sim_template(enroll_type) $enroll_type
set sim_template(casting_type) $casting_type
- set sim_template(enroll_groups) $enroll_groups
- set sim_template(invite_gropus) $invite_groups
+ set sim_template(auto-enroll) $enroll_groups
+ # TODO:
+ #set sim_template(invite_gropus) $invite_groups
simulation::template::edit \
-workflow_id $workflow_id \