Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.69 -r1.70
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	8 Mar 2002 22:01:32 -0000	1.69
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Mar 2002 22:15:34 -0000	1.70
@@ -446,6 +446,16 @@
         return [db_list_of_lists select_users {}]
     }
 
+    ad_proc -public list_users_in_role {
+        {-rel_type:required}
+        community_id
+    } {
+        Returns the list of users with a membership_id, a user_id,
+        first name, last name, email, in a given role. 
+    } {
+        return [db_list_of_lists select_users_in_role {}]
+    }
+    
     ad_proc -public member_p {
         community_id
         user_id
@@ -731,17 +741,24 @@
                         "[get_community_name $subcomm_id]</a>\n" 
 
                 if {[dotlrn::user_can_admin_community_p $subcomm_id]} {
-                    append subcomm_chunk " - \[\&nbsp\;<a class=note href=${url}one-community-admin>admin</a>\&nbsp\;\]"
+                    append subcomm_chunk "<small>\[<a href=${url}one-community-admin>admin</a>\]</small>"
                 }
                 
                 append subcomm_chunk \
                     "<ul>\n" \
                     [get_subcomm_chunk -community_id $subcomm_id] \
                     "</ul>\n"
             } else {
+                set url [get_community_url $subcomm_id]
+
                 append subcomm_chunk \
-                    "$pretext <a href=[get_community_url $subcomm_id]>" \
+                    "$pretext <a href=$url>" \
                     "[get_community_name $subcomm_id]</a>\n" 
+
+                if {[dotlrn::user_can_admin_community_p $subcomm_id]} {
+                    append subcomm_chunk "<small>\[<a href=${url}one-community-admin>admin</a>\]</small>"
+                }
+
             }
         }