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.1 -r1.2
--- openacs-4/contrib/packages/project-manager/tcl/role-procs.tcl	27 Apr 2004 00:49:28 -0000	1.1
+++ openacs-4/contrib/packages/project-manager/tcl/role-procs.tcl	11 Jun 2004 20:58:14 -0000	1.2
@@ -28,3 +28,66 @@
     set returnval [db_string get_default "select role_id from pm_roles limit 1" -default "-1"]
     return $returnval
 }
+
+
+ad_proc -public pm::role::select_list_filter {} {
+    Returns a select list.
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-11
+    
+    @return 
+    
+    @error 
+} {
+    return [util_memoize [list pm::role::select_list_filter_helper] 300]
+}
+
+
+ad_proc -private pm::role::select_list_filter_helper {} {
+    Returns a select list. Used so pm::role::select_list can be cached.
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-11
+    
+    @return 
+    
+    @error 
+} {
+    return [db_list_of_lists get_roles "
+                SELECT
+                one_line,
+                role_id
+                FROM
+                pm_roles
+                ORDER BY
+                role_id"]
+}
+
+
+ad_proc -public pm::role::select_list {
+    {-select_name:required}
+} {
+    Returns a select list, suitable for use in an HTML form.
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-11
+    
+    @return 
+    
+    @error 
+} {
+    set select_list "<select name=\"$select_name\">"
+
+    set select_list_options [pm::role::select_list_filter]
+
+    foreach option $select_list_options {
+        set description [lindex $option 0]
+        set value       [lindex $option 1]
+        append select_list "<option value=\"$value\">$description</option>"
+    }
+
+    append select_list "</select>"
+
+    return $select_list
+}