Index: openacs-4/packages/acs-admin/www/users/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/one.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/users/one.tcl	18 Nov 2002 18:01:17 -0000	1.6
+++ openacs-4/packages/acs-admin/www/users/one.tcl	16 Jan 2003 13:28:06 -0000	1.7
@@ -23,13 +23,15 @@
     user_finite_state_links:onevalue
 }
 
-if ![db_0or1row user_info "select first_names, last_name, email, coalesce(screen_name,'&lt none set up &gt') as screen_name, creation_date, creation_ip, last_visit, member_state, email_verified_p
+if ![db_0or1row user_info "select first_names, last_name, email, coalesce(screen_name,'&lt none set up &gt') as screen_name, creation_date, creation_ip, last_visit, member_state, email_verified_p, url
 from cc_users
 where user_id = :user_id"] {
     ad_return_complaint 1 "<li>We couldn't find user #$user_id; perhaps this person was deleted?"
     return
 }
 
+set public_link [acs_community_member_url -user_id $user_id]
+
 if [db_0or1row user_is_admin "select privilege from acs_permissions where object_id = 0 and grantee_id = :user_id and privilege = 'admin'"] {
     set admin_p 1
 } else {