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.3 -r1.4 --- openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl 12 Dec 2003 15:40:32 -0000 1.3 +++ openacs-4/packages/simulation/www/siminst/simulation-casting-2.tcl 15 Dec 2003 10:40:49 -0000 1.4 @@ -8,6 +8,7 @@ set context [list [list "." "SimInst"] $page_title] set package_id [ad_conn package_id] + # TODO: only one aplication group per package - need different solution set group_id [application_group::group_id_from_package_id -package_id $package_id] set group_name [group::get_element -group_id $group_id -element group_name] @@ -55,6 +56,8 @@ {user_group:integer(checkbox),multiple,optional {label "Invite all users in these groups"} {options $group_options} + #TODO: this link should use a function to find the subsite path + {help_text {Use Group Administration to add groups}} } } -on_submit { # Convert dates to ANSI format