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"}
Index: openacs-4/packages/acs-subsite/tcl/group-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/group-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/tcl/group-procs.xql	14 Jan 2004 22:34:53 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/group-procs.xql	28 Jun 2004 19:35:02 -0000	1.6
@@ -39,6 +39,17 @@
       </querytext>
 </fullquery>
 
+<fullquery name="group::get_rel_segment.select_segment_id">      
+      <querytext>
+      
+         select segment_id
+           from rel_segments
+          where group_id = :group_id
+            and rel_type = :type
+    
+      </querytext>
+</fullquery>
+