Index: openacs-4/packages/lab-report-central/tcl/lab-report-central-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/tcl/lab-report-central-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/lab-report-central/tcl/lab-report-central-procs.tcl 27 Apr 2006 04:34:33 -0000 1.2 +++ openacs-4/packages/lab-report-central/tcl/lab-report-central-procs.tcl 30 Apr 2006 12:01:31 -0000 1.3 @@ -47,3 +47,17 @@ return $templates_list } + +ad_proc lab_report_central::unmapped_students_get_options { + -lab_id +} { + Retrieves an options list of users that aren't mapped to the + given lab. + + @param lab_id Lab ID. +} { + set users_list [db_list_of_lists students {}] + set users_list [concat [list [list Search ":search:"]] $users_list] + + return $users_list +}