Index: openacs-4/packages/dotlrn/www/members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v
diff -u -r1.23 -r1.23.2.1
--- openacs-4/packages/dotlrn/www/members.tcl 15 Jan 2005 22:08:09 -0000 1.23
+++ openacs-4/packages/dotlrn/www/members.tcl 31 May 2005 23:13:06 -0000 1.23.2.1
@@ -33,6 +33,7 @@
set spam_p [dotlrn::user_can_spam_community_p -user_id [ad_get_user_id] -community_id $community_id]
set referer [ns_conn url]
set return_url "[ns_conn url]?[ns_conn query]"
+
set site_wide_admin_p [permission::permission_p -object_id [acs_magic_object security_context_root] -privilege admin]
if {!$site_wide_admin_p} {
@@ -84,6 +85,10 @@
+
+
Update bio
+
+
}
} last_name {
label "[_ acs-subsite.Last_name]"
@@ -101,7 +106,7 @@
label "[_ dotlrn.Email_1]"
html "align left"
display_template {
- @members.user_email;noquote@
+ @members.email@
}
} role {
label "[_ dotlrn.Role]"
@@ -129,10 +134,14 @@
set member_page [acs_community_member_page]
-db_multirow -extend { member_url referer user_email } members select_current_members {} {
+
+
+db_multirow -extend { update_bio_p member_url referer } members select_current_members {} {
set member_url "$member_page?user_id=$user_id"
- set user_email [email_image::get_user_email -user_id $user_id]
set referer $referer
+
+
+ set update_bio_p $admin_p
set role [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]
}