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.4 -r1.5
--- openacs-4/packages/curriculum-central/tcl/staff-procs.tcl	2 Apr 2006 07:52:10 -0000	1.4
+++ openacs-4/packages/curriculum-central/tcl/staff-procs.tcl	16 Jun 2006 06:33:58 -0000	1.5
@@ -26,6 +26,26 @@
 }
 
 
+ad_proc -public curriculum_central::staff::pretty_names {
+    name_ids
+} {
+    Takes a list of name_ids, and concatenates the pretty name for each
+    ID to a string with comma delimiters.
+
+    @param name_ids List of name IDs.
+    @return Returns a concatenated string of pretty names.
+} {
+    set names [list]
+
+    foreach name_id $name_ids {
+	set pretty_name [curriculum_central::staff::pretty_name $name_id]
+	lappend names "$pretty_name"
+    }
+
+    return [join $names ,]
+}
+
+
 ad_proc -public curriculum_central::staff::stream_coordinator_p {
     user_id
 } {