Index: openacs-4/packages/contacts/lib/contact-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-master.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/contacts/lib/contact-master.tcl	28 Jun 2005 06:04:26 -0000	1.11
+++ openacs-4/packages/contacts/lib/contact-master.tcl	6 Jul 2005 23:36:05 -0000	1.12
@@ -58,7 +58,7 @@
     multirow append links $label [subst $url] $selected_p
 }
  
-if { [contact::type -party_id $party_id] == "person" } {
+if { [lsearch [list person user] [contact::type -party_id $party_id]] >= 0 } {
     set public_url [acs_community_member_url -user_id $party_id]
 }
 
Index: openacs-4/packages/contacts/lib/groups.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/lib/groups.adp	28 Jun 2005 22:07:24 -0000	1.8
+++ openacs-4/packages/contacts/lib/groups.adp	6 Jul 2005 23:36:19 -0000	1.9
@@ -24,5 +24,8 @@
 <h3>#contacts.Other_Options#</h3>
 <ul class="action-links">
   <li><a href="@remove_url@">#contacts.lt_Delete_this_contact#</a>
+<if @upgrade_url@ not nil>
+  <li><a href="@upgrade_url@">#contacts.lt_Upgrade_this_person_to_a_user#</a>
+</if>
 </ul>
 </if>
Index: openacs-4/packages/contacts/lib/groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/lib/groups.tcl	28 Jun 2005 05:49:39 -0000	1.6
+++ openacs-4/packages/contacts/lib/groups.tcl	6 Jul 2005 23:36:19 -0000	1.7
@@ -64,6 +64,9 @@
 
 if { [permission::permission_p -object_id "-2" -privilege "delete"] } {
     set remove_url [export_vars -base "/contacts/group-parties-remove" -url {{group_id "-2"} party_id {return_url {/contacts/}}}] 
+    if { [db_0or1row contact_is_person { select 1 from acs_objects where object_id = :party_id and object_type = 'person' }] } {
+        set upgrade_url [export_vars -base "/contacts/person-upgrade-to-user" -url {{person_id $party_id}}] 
+    }
     set delete_p 1
 } else {
     set delete_p 0