Index: openacs-4/packages/directory/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/directory/www/index.adp,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/directory/www/index.adp	3 Oct 2003 11:33:56 -0000	1.5
+++ openacs-4/packages/directory/www/index.adp	26 Mar 2004 12:05:33 -0000	1.6
@@ -70,7 +70,7 @@
      <else>
        <tr class="RowColorEven">
      </else>
-        <td width="50%"><a href="/shared/community-member?user_id=@all_user_data.user_id@">@all_user_data.last_name@, @all_user_data.first_names@</a></td>
+        <td width="50%"><a href="@all_user_data.member_url@">@all_user_data.last_name@, @all_user_data.first_names@</a></td>
 	<if @registered_user_p@>
         <td width="50%"><a href="mailto:@all_user_data.email@">@all_user_data.email@</a></td>
 	</if>
Index: openacs-4/packages/directory/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/directory/www/index.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/directory/www/index.tcl	3 Oct 2003 11:33:56 -0000	1.5
+++ openacs-4/packages/directory/www/index.tcl	26 Mar 2004 12:05:33 -0000	1.6
@@ -97,14 +97,16 @@
 set email_header [ad_decode $order_by "email" "<a href=index?order_by=email-&$header_link_vars>E-mail Address:</a>&nbsp;^" "email-" "<a href=index?order_by=email&$header_link_vars>E-mail Address:</a>&nbsp;v" "<a href=index?order_by=email&$header_link_vars>E-mail Address:</a>"]
 
 if { $num_rows == 0 } {
-    db_multirow -extend { email_partial } all_user_data get_all_users "" {
+    db_multirow -extend { member_url email_partial } all_user_data get_all_users "" {
 	set email_partial [string replace $email \
 		[expr [string first "@" $email]+3] end "..."]
+        set member_url [acs_community_member_url -user_id $user_id]
     } 
 } else {
-    db_multirow -extend { email_partial } all_user_data get_all_n_users "" {
+    db_multirow -extend { member_url email_partial } all_user_data get_all_n_users "" {
 	set email_partial [string replace $email \
 		[expr [string first "@" $email]+3] end "..."]
+        set member_url [acs_community_member_url -user_id $user_id]
     } 
 }