Index: openacs-4/packages/curriculum-central/tcl/uos-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/uos-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/curriculum-central/tcl/uos-procs.tcl	4 Jun 2006 04:58:53 -0000	1.35
+++ openacs-4/packages/curriculum-central/tcl/uos-procs.tcl	16 Jun 2006 11:56:40 -0000	1.36
@@ -1680,6 +1680,28 @@
 #
 #####
 
+ad_proc -public curriculum_central::uos::get_graduate_attribute_level_name {
+    level
+} {
+    Returns the pretty name for a graduate attribute level.
+} {
+    set name ""
+    if { $level == 1} {
+	set name [_ curriculum-central.very_low]
+    } elseif { $level == 2} {
+	set name [_ curriculum-central.low]
+    } elseif { $level == 3 } {
+	set name [_ curriculum-central.moderate]
+    } elseif { $level == 4 } {
+	set name [_ curriculum-central.high]
+    } elseif { $level == 5 } {
+	set name [_ curriculum-central.very_high]
+    }
+
+    return $name
+}
+
+
 ad_proc -public curriculum_central::uos::get_assessment_total {
     {-assess_id:required}
 } {