OpenACS

miguelm
committed
MAIN:miguelm:20050114145203
on 14 Jan 05
Allows users to choose their emali privacy level
openacs-4/.../dotlrn/www/members.tcl (+4 -3)
84 84                 <img src="/resources/acs-subsite/profile-16.png" height="16" width="16" alt="#acs-subsite.Profile#" title="#acs-subsite.lt_User_has_portrait_title#" border="0">
85 85                 </a>
86 86                 </if>
87 87             }
88 88         } last_name {
89 89             label "[_ acs-subsite.Last_name]"
90 90             html "align left"
91 91             display_template {
92 92                 <a href="@members.member_url@">@members.last_name;noquote@</a>
93 93             }
94 94         } first_names {
95 95             label "[_ acs-subsite.First_names]"
96 96             html "align left"
97 97             display_template {
98 98                 <a href="@members.member_url@">@members.first_names@</a>
99 99             }
100 100         } email {
101 101             label "[_ dotlrn.Email_1]"
102 102             html "align left"
103 103             display_template {
104                   <a href="mailto:@members.email@">@members.email@</a>
  104                 @members.user_email;noquote@
105 105             }
106 106         } role {
107 107             label "[_ dotlrn.Role]"
108 108             html "align left"
109 109         } action {
110 110             label "[_ dotlrn.Actions]"
111 111             html "align left"
112 112             display_template {
113 113                 <if @members.user_id@ ne "">
114 114                 <a href="deregister?user_id=@members.user_id@&referer=@members.referer@">#dotlrn.Drop_Membership#</a> |
115 115                 <a href="member-add-2?user_id=@members.user_id@&referer=@members.referer@">#dotlrn.User_Admin_Page#</a>
116 116                 </if>
117 117             }
118 118         }
119 119     } -orderby {
120 120         last_name {orderby last_name}
121 121         first_names {orderby first_names}
122 122         email {orderby email}
123 123         role {orderby role}
124 124     } -selected_format csv -formats {
125 125         csv { output csv }
126 126     }
127 127
128 128 set orderby [template::list::orderby_clause -name "members" -orderby]
129 129
130 130 set member_page [acs_community_member_page]
131 131
132   db_multirow -extend { member_url referer } members select_current_members {} {
  132 db_multirow -extend { member_url referer user_email } members select_current_members {} {
133 133     set member_url "$member_page?user_id=$user_id"
  134     set user_email [email_image::get_user_email -user_id $user_id]
134 135     set referer $referer
135 136     set role [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]
136 137 }
137 138
138 139 if { [exists_and_not_null csv] } {
139 140     template::list::write_output -name members
140 141 }
141 142
142 143 # Bulk action User Admin Page
143 144 # Depending on the community_type, we have allowable rel_types
144 145 set rel_types [dotlrn_community::get_roles -community_id $community_id]
145 146 set selection "<select name=\"rel_type\">"
146 147 foreach role $rel_types {
147 148     append selection "<option value=\"[lindex $role 0]\">[lang::util::localize [lindex $role 2]]</option>"
148 149 }
149 150 append selection "</select>"
150 151 set size [multirow size members]
151 152 if { $size > 0 } {
152 153     multirow append members "" "" "" "" "" $selection
153 154 }