Index: openacs-4/contrib/packages/project-manager/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/role-procs.tcl,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/contrib/packages/project-manager/tcl/role-procs.tcl	2 Jul 2004 23:13:49 -0000	1.2.2.1
+++ openacs-4/contrib/packages/project-manager/tcl/role-procs.tcl	8 Sep 2004 22:36:59 -0000	1.2.2.2
@@ -91,3 +91,46 @@
 
     return $select_list
 }
+
+
+ad_proc -public pm::role::name {
+    -role_id:required
+} {
+    Returns the one_line for the role from the role_id
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-09-08
+    
+    @param role_id
+
+    @return one_line
+    
+    @error 
+} {
+    return [util_memoize [list pm::role::name_not_cached -role_id $role_id]]
+}
+
+
+ad_proc -public pm::role::name_not_cached {
+    -role_id:required
+} {
+    Returns the one_line for the role from the role_id
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-09-08
+    
+    @param role_id
+
+    @return one_line
+    
+    @error 
+} {
+    return [db_string get_one_line {
+        SELECT
+        one_line
+        FROM
+        pm_roles
+        WHERE
+        role_id = :role_id
+    } -default "error"]
+}