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.1 -r1.2
--- openacs-4/packages/contacts/lib/contact-attributes.tcl	21 Jun 2005 12:25:18 -0000	1.1
+++ openacs-4/packages/contacts/lib/contact-attributes.tcl	29 Jun 2005 00:47:49 -0000	1.2
@@ -23,19 +23,20 @@
 }
 
 set object_type [util_memoize [list acs_object_type $party_id]]
-
+if { $object_type == "user" } {
+    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 -2] < 0 } {
     ad_return_error "[_ contacts.lt_This_users_has_not_be]" "[_ contacts.lt_This_user_is_awaiting]"
 }
-set ams_forms [list]
+set ams_forms [list "${package_id}__-2"]
 foreach group [contact::groups -expand "all" -privilege_required "read"] {
     set group_id [lindex $group 1]
     if { [lsearch $groups_belonging_to $group_id] >= 0 } {
         lappend ams_forms "${package_id}__${group_id}"
     }
 }
-
 set revision_id [contact::live_revision -party_id $party_id]
 
 # This is the multirow that gets the values for each attribute