Index: openacs-4/packages/simulation/lib/simulations-available.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/simulations-available.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/simulation/lib/simulations-available.tcl 8 Jan 2004 14:24:44 -0000 1.2 +++ openacs-4/packages/simulation/lib/simulations-available.tcl 12 Jan 2004 15:52:44 -0000 1.3 @@ -12,7 +12,7 @@ set package_id [ad_conn package_id] - # TODO: if invited instead of open, say "accept invitation to enroll" +# TODO (.25h): if invited instead of open, say "accept invitation to enroll" set elements { pretty_name { @@ -40,8 +40,8 @@ -no_data "No simulations available to self-enroll." \ -elements $elements -# TODO: verify that the first half of this query returns the sims to which the user is invited (data model may have changed since this was coded) -# TODO: exclude simulations for which the user is currently enrolled +# TODO (.25h): verify that the first half of this query returns the sims to which the user is invited (data model may have changed since this was coded) +# TODO (.25h): exclude simulations for which the user is currently enrolled db_multirow -extend {enroll_url} avail_sims select_avail_sims " select w.workflow_id, @@ -67,4 +67,4 @@ set enroll_url [export_vars -base "[apm_package_url_from_id $package_id]simplay/enroll" {workflow_id} ] set description [ad_html_text_convert -from $description_mime_type -maxlen 200 -- $description] -} \ No newline at end of file +}