Index: openacs-4/packages/acs-subsite/www/admin/rel-types/new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/new-2.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-types/new-2.tcl	19 Aug 2001 16:32:15 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/new-2.tcl	9 Sep 2001 15:36:44 -0000	1.3
@@ -74,15 +74,15 @@
        and r.rel_type = t.object_type
 }
 
-set object_types_one_list [db_list_of_lists select_object_types_2 {
+set object_types_one_list [db_list_of_lists select_object_types_one {
     select replace(lpad(' ', (level - 1) * 4), ' ', ' ') || 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
 }]
 
-set object_types_two_list [db_list_of_lists select_object_types {
+set object_types_two_list [db_list_of_lists select_object_types_two {
     select replace(lpad(' ', (level - 1) * 4), ' ', ' ') || t.pretty_name, 
            t.object_type as rel_type
       from acs_object_types t
@@ -175,7 +175,7 @@
 	    append exception_text "<li> The specified pretty name, $pretty_name, already exists. Please enter another </li>"
 	}
 
-	if { [db_string pretty_name_unique {
+	if { [db_string pretty_plural_unique {
 	    select case when exists (select 1 from acs_object_types t where t.pretty_plural = :pretty_plural)
                     then 1 else 0 end
 	      from dual