Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp,v diff -u -r1.18 -r1.18.2.1 --- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp 15 Dec 2006 22:45:28 -0000 1.18 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp 3 Mar 2007 18:25:47 -0000 1.18.2.1 @@ -21,44 +21,7 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - -
#dotlrn-portlet.members_portlet_pretty_name#
#dotlrn.Name##dotlrn.Email_1##dotlrn.Role#
- - #acs-subsite.Profile# - - - <%= [acs_community_member_link -user_id $users(user_id) -label "$users(first_names) $users(last_name)"] %> - - @users.email;noquote@ - - @users.role@ -
- +

    Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl,v diff -u -r1.13 -r1.13.2.1 --- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl 15 Jun 2005 19:31:37 -0000 1.13 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl 3 Mar 2007 18:25:47 -0000 1.13.2.1 @@ -33,17 +33,45 @@ set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id -community_id $community_id] set read_private_data_p [dotlrn::user_can_read_private_data_p -user_id $user_id -object_id $community_id] set spam_p [dotlrn::user_can_spam_community_p -user_id [ad_get_user_id] -community_id $community_id] - # Get all users for this community, including role template::util::list_of_ns_sets_to_multirow \ -rows [dotlrn_community::list_users $community_id] \ -var_name "users" -template::multirow extend users community_member_url +template::multirow extend users community_member_url name template::multirow foreach users { set role [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type] set community_member_url [acs_community_member_url -user_id $user_id] set email [email_image::get_user_email -user_id $user_id] + set name "$first_names $last_name" } +template::list::create \ + -name users \ + -multirow users \ + -caption "\#dotlrn-portlet.members_portlet_pretty_name\#" \ + -html {summary "\#dotlrn-portlet.members_portlet_pretty_name\#"} \ + -elements { + bio { + display_template { + + #acs-subsite.Profile# + + } + label {} + } + name { + link_url_col community_member_url + link_html {title "#acs-subsite.lt_User_has_portrait_title#"} + label {#dotlrn.Name#} + } + email { + display_template {@users.email;noquote@} + label {#dotlrn.Email#} + link_html {title "\#dotlrn.Email"} + } + role { + label {#dotlrn.Role#} + } + }