Finished user-level contact stuff
[hcoop/portal.git] / user.mlt
1 <% val id = Web.stoi ($"id");
2 val user = Init.lookupUser id;
3
4 @header[("title", [#name user])] %>
5
6 <table>
7 <tr> <td align="right"><b>Member</b>:</td> <td><% #name user %></td> </tr>
8 <tr> <td align="right"><b>Real name</b>:</td> <td><% Web.html (#rname user) %></td> </tr>
9 <tr> <td align="right"><b>Hcoop e-mail</b>:</td> <td><a href="mailto:<% #name user %>@hcoop.net"><tt><% #name user %>@hcoop.net</tt></a></td> </tr>
10 <tr> <td align="right"><b>Joined</b>:</td> <td><% #joined user %></td> </tr>
11
12 <tr> </tr>
13
14 <tr> <td><b>Contact information</b></td> </tr>
15
16 <% val level = iff Group.inGroupName "contact" then Contact.ADMINS else Contact.MEMBERS;
17
18 foreach (kind, cont) in Contact.listUserContacts (id, level) do %>
19 <tr> <td align="right" valign="top"><b><% Web.html (#name kind) %></b>:</td>
20 <td><% Contact.format (kind, cont) %></td> </tr>
21 <% end %>
22
23 </table>
24
25 <% @footer[] %>