Index: openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl	20 Jun 2018 08:23:51 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl	2 Jan 2020 17:19:41 -0000	1.6.2.1
@@ -50,7 +50,15 @@
 if { [relation_segment_has_dependent -rel_id $rel_id] } {
     set return_url "[ad_conn url]?[ad_conn query]"
     # We can't remove this relation - display the violations
-    db_multirow -extend {export_vars} dependents select_dependents {} {
+    db_multirow -extend {export_vars} dependents select_dependents {
+	select r.viol_rel_id as rel_id,
+               (select pretty_name from acs_object_types
+                where object_type = r.viol_rel_type) as rel_type_pretty_name,
+	       acs_object.name(r.viol_object_id_one) as object_id_one_name,
+	       acs_object.name(r.viol_object_id_two) as object_id_two_name
+	  from rc_violations_by_removing_rel r
+	 where r.rel_id = :rel_id
+    } {
         set export_vars [export_vars {rel_id return_url}]
     }
     ad_return_template remove-dependents-exist