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.7 -r1.8
--- openacs-4/packages/contacts/lib/contact-attributes.tcl	15 Feb 2006 10:06:36 -0000	1.7
+++ openacs-4/packages/contacts/lib/contact-attributes.tcl	27 Apr 2006 06:37:21 -0000	1.8
@@ -28,10 +28,10 @@
 }
 set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id }]
 
-contact::require_visiblity -party_id $party_id
+contact::require_visiblity -party_id $party_id -package_id $package_id
 
-set ams_groups [contacts::default_group]
-foreach group [contact::groups -expand "all" -privilege_required "read"] {
+set ams_groups [contacts::default_group -package_id $package_id]
+foreach group [contact::groups -expand "all" -privilege_required "read" -package_id $package_id] {
     set group_id [lindex $group 1]
     if { [lsearch $groups_belonging_to $group_id] >= 0 } {
         lappend ams_groups $group_id