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.10 -r1.11 --- openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl 18 Dec 2003 08:31:03 -0000 1.10 +++ openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl 18 Dec 2003 09:53:07 -0000 1.11 @@ -13,6 +13,8 @@ subsite::get -array closest_subsite set group_admin_url "${closest_subsite(url)}admin/group-types/one?group_type=group" +# TODO: verify that prepopulated values work correctly + # TODO: provide more sensible default dates? # Notification send could be start date minus some parameter set in_a_month_date [clock format [expr [clock seconds] + 3600*24*31] -format "%Y %m %d"] @@ -64,14 +66,12 @@ {options $eligible_groups} {help_text {Use Group Administration to add groups}} } -} -new_request { +} -on_request { - #TODO: is this the right way to set defaults in ad_form? + # TODO: use these default values if none are specified set enroll_type "closed" set casting_type "auto" -} -on_request { - set enroll_groups [simulation::template::get_parties -workflow_id $workflow_id -rel_type auto-enroll] } -on_submit {