Index: openacs-4/packages/curriculum-central/tcl/curriculum-central-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/curriculum-central-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/tcl/curriculum-central-procs.tcl	20 Nov 2005 23:51:10 -0000	1.1
+++ openacs-4/packages/curriculum-central/tcl/curriculum-central-procs.tcl	4 Dec 2005 07:32:38 -0000	1.2
@@ -58,9 +58,32 @@
 }
 
 
+ad_proc curriculum_central::staff_get_options {} {
+    Returns a two-column list of users that are considered to be staff.
+    The first column contains the pretty name of a user, and the second
+    contains their user_id.
+} {
+    set staff_list [db_list_of_lists staff {}]
+
+    return $staff_list
+}
+
+
+ad_proc curriculum_central::non_staff_get_options {} {
+    Returns a two-column list of users that aren't considered to be staff.
+    The first column contains the pretty name of a user, and the second
+    contains the corresponding user_id.
+} {
+    set non_staff_list [db_list_of_lists non_staff {}]
+
+    return $non_staff_list
+}
+
+
 ad_proc curriculum_central::users_get_options {} {
-    Returns a two-column list of users.  The first column contains the
-    pretty name of a user, and the second contains the corresponding user_id.
+    Returns a two-column list of users that have accounts on the system.
+    The first column contains the pretty name of a user, and the second
+    contains the corresponding user_id.
 } {
     set users_list [db_list_of_lists users {}]