Index: openacs-4/packages/acs-subsite/tcl/group-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/group-procs-oracle.xql	23 Feb 2002 02:43:45 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/group-procs-oracle.xql	28 Aug 2003 09:41:39 -0000	1.4
@@ -34,4 +34,21 @@
 </fullquery>
 
  
+<fullquery name="group::get_rel_types_options.select_rel_types">      
+      <querytext>
+    select role.pretty_name,
+           gr.rel_type
+    from   group_rels gr,
+           acs_rel_types rt,
+           acs_rel_roles role
+    where  gr.group_id = :group_id
+    and    rt.rel_type = gr.rel_type
+    and    role.role = rt.role_two
+    and    rt.object_type_two = :object_type
+    order  by decode(gr.rel_type, 'membership_rel', 0, 1)||role.pretty_name
+
+      </querytext>
+</fullquery>
+
+
 </queryset>