Index: openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl	10 Sep 2015 08:21:40 -0000	1.5.2.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl	27 Oct 2015 23:01:34 -0000	1.5.2.2
@@ -42,13 +42,7 @@
     return
 }
 
-set subtypes_exist_p [db_string number_subtypes {
-    select case when exists (select 1 
-                               from acs_object_types t
-                              where t.supertype = :group_type) 
-                then 1 else 0 end
-      from dual
-}]
+set subtypes_exist_p [db_string number_subtypes {}]
 
 if { $subtypes_exist_p } {
     set return_url "[ad_conn url]?[ad_conn query]"
@@ -68,14 +62,7 @@
 }
 
 # Now let's check if any relationship types depend on this group type
-set rel_types_depend_p [db_string rel_type_exists_p {
-    select case when exists (select 1 
-                               from acs_rel_types t
-                              where t.object_type_one = :group_type
-                                 or t.object_type_two = :group_type)
-                then 1 else 0 end
-      from dual
-}]
+set rel_types_depend_p [db_string rel_type_exists_p {}]
 
 if { $rel_types_depend_p } {
     set return_url "[ad_conn url]?[ad_conn query]"