Index: openacs-4/packages/curriculum-central/tcl/staff-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/staff-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/curriculum-central/tcl/staff-procs.tcl	19 Dec 2005 11:55:25 -0000	1.2
+++ openacs-4/packages/curriculum-central/tcl/staff-procs.tcl	2 Feb 2006 11:45:49 -0000	1.3
@@ -40,3 +40,17 @@
     # stream, then the user is a stream coordinator.
     return [db_0or1row is_stream_coordinator {}]
 }
+
+
+ad_proc -public curriculum_central::staff::staff_p {
+    user_id
+} {
+    Checks if the given user is a member of staff or not.
+
+    @param user_id ID of a user.
+    @return Returns 1 if the user is a staff member, otherwise
+    0 is returned.
+} {
+
+    return [db_0or1row staff_p {}]
+}