Index: openacs-4/packages/curriculum-central/tcl/stream-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/stream-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/curriculum-central/tcl/stream-procs.tcl	23 Jan 2006 10:38:47 -0000	1.4
+++ openacs-4/packages/curriculum-central/tcl/stream-procs.tcl	25 Jan 2006 12:25:52 -0000	1.5
@@ -186,3 +186,39 @@
 
     return [db_list_of_lists all_stream_uos {}]
 }
+
+
+ad_proc curriculum_central::stream::stream_uos_relation_get_options {} {
+    Returns a two-column list of UoS to Stream relations.  The list
+    contains hard coded values for Core, Recommended and Elective, with
+    values of 0, 1, and 2 respectively.
+
+    @return Returns a two-column list of UoS to Stream relations.
+} {
+    set relations [list]
+    lappend relations "[_ curriculum-central.core] 0"
+    lappend relations "[_ curriculum-central.recommended] 1"
+    lappend relations "[_ curriculum-central.elective] 2"
+
+    return $relations
+}
+
+
+ad_proc curriculum_central::stream::stream_uos_relation_name {
+    {-id:required}
+} {
+    Returns the pretty name for the given relation_id.
+
+    @param id The ID that corresponds to either "Core", "Recommended",
+    or "Elective".
+
+    @see curriculum_central::stream::stream_uos_relation_get_options
+} {
+    if { $id eq 0 } {
+	return [_ curriculum-central.core]
+    } elseif { $id eq 1} {
+	return [_ curriculum-central.recommended]
+    } else {
+	return [_ curriculum-central.elective]
+    }
+}
\ No newline at end of file