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]
 }