Index: openacs-4/packages/acs-subsite/tcl/group-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs-postgresql.xql,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-subsite/tcl/group-procs-postgresql.xql	28 Aug 2002 13:43:46 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/group-procs-postgresql.xql	4 Jul 2003 12:51:14 -0000	1.6.2.1
@@ -36,5 +36,24 @@
       </querytext>
 </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 (case when gr.rel_type = 'membership_rel' then 0 else 1 end)||role.pretty_name
+
+      </querytext>
+</fullquery>
+
+
  
 </queryset>