Index: openacs-4/packages/acs-subsite/tcl/relation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	30 Sep 2003 12:10:03 -0000	1.8
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	20 Nov 2003 16:40:27 -0000	1.8.2.1
@@ -93,13 +93,17 @@
 
 	# Check to see if constraints are violated because of this new
 	# relation
-	set violated_err_msg [db_string select_rel_violation {
-	    select rel_constraint.violation(:rel_id) from dual
-	} -default ""]
 
-	if { ![empty_string_p $violated_err_msg] } {
-	    error $violated_err_msg
-	}
+	# JCD: this is enforced by trigger so no longer check explicitly
+	# see membership_rels_in_tr
+	# 
+	# set violated_err_msg [db_string select_rel_violation {
+	#    select rel_constraint.violation(:rel_id) from dual
+	# } -default ""]
+	#
+	# if { ![empty_string_p $violated_err_msg] } {
+	#     error $violated_err_msg
+	# }
     } on_error {
 	return -code error $errmsg
     }