Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new.tcl	20 Jun 2018 09:06:10 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new.tcl	3 Sep 2024 15:37:34 -0000	1.10
@@ -117,7 +117,15 @@
 
 	# check for violations
 	template::multirow create violations rel_id name
-	db_foreach select_violated_rels {} {
+	db_foreach select_violated_rels {
+	    select viol.rel_id, acs_object.name(viol.party_id) as name
+	      from rel_constraints_violated_one viol
+	     where viol.constraint_id = :constraint_id
+	    UNION ALL
+	    select viol.rel_id, acs_object.name(viol.party_id) as name
+	      from rel_constraints_violated_two viol
+	     where viol.constraint_id = :constraint_id
+        } {
 	    template::multirow append violations $rel_id $name
 	    incr ctr
 	}