Index: openacs-4/packages/contacts/lib/contact-attributes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-attributes.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/lib/contact-attributes.tcl	28 Oct 2005 22:14:40 -0000	1.6
+++ openacs-4/packages/contacts/lib/contact-attributes.tcl	15 Feb 2006 10:06:36 -0000	1.7
@@ -27,9 +27,9 @@
     set object_type "person"
 }
 set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id }]
-if { [lsearch $groups_belonging_to [contacts::default_group]] < 0 } {
-    ad_return_error "[_ contacts.lt_This_users_has_not_be]" "[_ contacts.lt_This_user_is_awaiting]"
-}
+
+contact::require_visiblity -party_id $party_id
+
 set ams_groups [contacts::default_group]
 foreach group [contact::groups -expand "all" -privilege_required "read"] {
     set group_id [lindex $group 1]