Index: openacs-4/packages/contacts/www/relationship-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-delete.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/www/relationship-delete.tcl	18 Dec 2005 21:31:29 -0000	1.6
+++ openacs-4/packages/contacts/www/relationship-delete.tcl	15 Feb 2006 10:06:36 -0000	1.7
@@ -16,6 +16,8 @@
     }
 }
 
+contact::require_visiblity -party_id $party_id
+
 # ams::object_delete -object_id $rel_id
 db_1row get_object_id_one {}
 db_1row delete_rel {}