Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl	21 Jan 2018 00:35:29 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl	20 Jun 2018 08:35:45 -0000	1.8
@@ -19,7 +19,16 @@
     export_vars:onevalue
 }
 
-if { ![db_0or1row select_info {}] } {
+if { ![db_0or1row select_info {
+    select g.rel_type,
+           g.group_id,
+           (select group_name from groups
+             where group_id = g.group_id) as group_name,
+           t.pretty_name as rel_pretty_name
+      from acs_object_types t, group_rels g
+     where g.group_rel_id = :group_rel_id
+       and t.object_type = g.rel_type    
+}] } {
     ad_return_error "Relation already removed." "Please back up and reload"
     ad_script_abort
 }
@@ -32,8 +41,6 @@
                  [list [export_vars -base one {group_id}] "One group"] \
                  "Remove relation type"]
 
-ad_return_template
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4