Index: openacs-4/packages/acs-subsite/www/admin/rel-types/new-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/new-2-oracle.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-types/new-2-oracle.xql	19 Aug 2001 16:32:14 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/new-2-oracle.xql	9 Sep 2001 15:36:44 -0000	1.3
@@ -3,7 +3,7 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="select_object_types_2">      
+<fullquery name="select_object_types_one">      
       <querytext>
       
     select replace(lpad(' ', (level - 1) * 4), ' ', '&nbsp;') || t.pretty_name, 
@@ -16,14 +16,14 @@
 </fullquery>
 
  
-<fullquery name="select_object_types">      
+<fullquery name="select_object_types_two">      
       <querytext>
       
     select replace(lpad(' ', (level - 1) * 4), ' ', '&nbsp;') || t.pretty_name, 
            t.object_type as rel_type
       from acs_object_types t
    connect by prior t.object_type = t.supertype
-     start with t.object_type=:max_object_type_one
+     start with t.object_type=:max_object_type_two
 
       </querytext>
 </fullquery>
@@ -40,10 +40,10 @@
 </fullquery>
 
  
-<fullquery name="pretty_name_unique">      
+<fullquery name="pretty_plural_unique">      
       <querytext>
       
-	    select case when exists (select 1 from acs_object_types t where t.pretty_name = :pretty_name)
+	    select case when exists (select 1 from acs_object_types t where t.pretty_plural = :pretty_plural)
                     then 1 else 0 end
 	      from dual