Index: openacs-4/packages/acs-subsite/www/admin/group-types/new-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/new-oracle.xql,v
diff -u -r1.1.30.1 -r1.1.30.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/new-oracle.xql	28 Oct 2015 09:38:35 -0000	1.1.30.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/new-oracle.xql	2 Jan 2016 12:42:04 -0000	1.1.30.2
@@ -4,12 +4,20 @@
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
 <fullquery name="pretty_name_unique">      
-      <querytext>
+<querytext>
 	  select case when exists (select 1 from acs_object_types t where t.pretty_name = :pretty_name)
                  then 1 else 0 end
 	  from dual
-	
-      </querytext>
+</querytext>
 </fullquery>
- 
+
+<fullquery name="select_group_supertypes">      
+<querytext>
+   select replace(lpad(' ', (level - 1) * 4), ' ', '&nbsp;') || t.pretty_name, t.object_type
+   from acs_object_types t
+   connect by prior t.object_type = t.supertype
+   start with t.object_type = 'group'
+</querytext>
+</fullquery>
+
 </queryset>