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 -N -r1.234.2.20 -r1.234.2.21
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	23 Feb 2021 13:16:55 -0000	1.234.2.20
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	24 Feb 2021 16:45:31 -0000	1.234.2.21
@@ -614,15 +614,19 @@
         return [db_string select_rel_segment_id {} -default ""]
     }
 
-    ad_proc -private get_members_rel_id {
+    ad_proc -public get_members_rel_id {
         {-community_id:required}
     } {
+        Get the relational segment ID for members of a community.
+    } {
         return [get_rel_segment_id -community_id $community_id -rel_type dotlrn_member_rel]
     }
 
-    ad_proc -private get_admin_rel_id {
+    ad_proc -public get_admin_rel_id {
         {-community_id:required}
     } {
+        Get the relational segment ID for admins of a community.
+    } {
         return [get_rel_segment_id -community_id $community_id -rel_type dotlrn_admin_rel]
     }