Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	20 Apr 2004 21:12:58 -0000	1.23
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	28 Jun 2004 19:35:02 -0000	1.24
@@ -397,6 +397,15 @@
 }
 
 
+ad_proc -public group::get_rel_segment {
+    {-group_id:required}
+    {-type:required}
+} {
+    Get a segment for a particular relation type for a given group.
+} {
+    return [db_string select_segment_id {}]
+}
+
 ad_proc -public group::get_rel_types_options {
     {-group_id:required}
     {-object_type "person"}