Index: openacs-4/packages/directory/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/directory/www/index.tcl,v
diff -u -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" "E-mail Address: ^" "email-" "E-mail Address: v" "E-mail Address:"]
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]
}
}