| Member: | <% #name user %> |
| Real name: | <% Web.html (#rname user) %> |
| Hcoop e-mail: | <% #name user %><% Init.emailSuffix %> |
| Joined: | <% #joined user %> |
| Locations: | <%
ref first = true;
foreach loc in Location.userLocations id do
if first then
first := false
else
%>, <%
end
%><% Web.html (#name loc) %><%
end %> |
<% val links = Link.listUserLinks id;
switch links of
(_::_) => %>
| Hosted sites |
<% foreach link in links do %>
| <% Web.html (#title link) %><%
if #descr link <> "" then %>: <% Web.html (#descr link) end
%> |
<% end
end;
val level = iff Group.inGroupName "contact" then Contact.ADMINS else Contact.MEMBERS;
val contacts = Contact.listUserContacts (id, level);
switch contacts of
(_::_) => %>
| Contact information |
<% foreach (kind, cont) in contacts do %>
| <% Web.html (#name kind) %>: |
<% Contact.format (kind, cont) %> |
<% end
end %>