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.1 -r1.2
--- openacs-4/packages/curriculum-central/tcl/staff-procs.tcl	18 Dec 2005 13:28:21 -0000	1.1
+++ openacs-4/packages/curriculum-central/tcl/staff-procs.tcl	19 Dec 2005 11:55:25 -0000	1.2
@@ -24,3 +24,19 @@
 } {
     return [db_string get_pretty_name {}]
 }
+
+
+ad_proc -public curriculum_central::staff::stream_coordinator_p {
+    user_id
+} {
+    Checks if the given user is a stream coordinator or not.
+
+    @param user_id ID of a user.
+    @return Returns 1 if the user is a stream coordinator, otherwise
+    0 is returned.
+} {
+
+    # If the user is a stream coordinator for at least one
+    # stream, then the user is a stream coordinator.
+    return [db_0or1row is_stream_coordinator {}]
+}