Index: openacs-4/packages/contacts/www/contact-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-edit.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/www/contact-edit.tcl	1 Jul 2005 00:36:10 -0000	1.8
+++ openacs-4/packages/contacts/www/contact-edit.tcl	6 Jul 2005 23:40:25 -0000	1.9
@@ -17,19 +17,13 @@
 
 
 set object_type [contact::type -party_id $party_id]
-#set attach_url [attachments::add_attachment_url \
-#                      -object_id $party_id \
-#                      -return_url [contact::url -party_id $party_id] \
-#                      -pretty_name [contact::name -party_id $party_id]]
+if { $object_type == "user" } {
+    set object_type "person"
+}
 
- 
-
-set object_type [contact::type -party_id $party_id]
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
 
-# set form_elements [ams::ad_form::elements -package_key "contacts" -object_type $object_type -list_name "${object_type}_[ad_conn package_id]" -key party_id]
-
 set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id }]
 
 set form_elements {party_id:key}