45f95cf5 |
1 | <% val id = Web.stoi ($"id"); |
2 | val user = Init.lookupUser id; |
3 | |
4 | @header[("title", [#name user])] %> |
5 | |
1fe415e0 |
6 | <table class="blanks"> |
7 | <tr> <td>Member:</td> <td><% #name user %></td> </tr> |
8 | <tr> <td>Real name:</td> <td><% Web.html (#rname user) %></td> </tr> |
9 | <tr> <td>Hcoop e-mail:</td> <td><a href="mailto:<% #name user %><% Init.emailSuffix %>"><tt><% #name user %><% Init.emailSuffix %></tt></a></td> </tr> |
10 | <tr> <td>Joined:</td> <td><% #joined user %></td> </tr> |
11 | <tr> <td>Locations:</td> <td><% |
51520441 |
12 | ref first = true; |
13 | foreach loc in Location.userLocations id do |
14 | if first then |
15 | first := false |
16 | else |
17 | %>, <% |
18 | end |
19 | %><a href="location?id=<% #id loc %>"><% Web.html (#name loc) %></a><% |
20 | end %></td> </tr> |
45f95cf5 |
21 | |
29c3cc58 |
22 | <% val links = Link.listUserLinks id; |
23 | |
24 | switch links of |
25 | (_::_) => %> |
45f95cf5 |
26 | <tr> </tr> |
27 | |
29c3cc58 |
28 | <tr> <td><b>Hosted sites</b></td> </tr> |
29 | |
30 | <% foreach link in links do %> |
31 | <tr> <td></td> <td><b><a href="<% Web.html (#url link) %>"><% Web.html (#title link) %></a></b><% |
32 | if #descr link <> "" then %>: <% Web.html (#descr link) end |
33 | %></td> </tr> |
34 | <% end |
35 | end; |
36 | |
37 | val level = iff Group.inGroupName "contact" then Contact.ADMINS else Contact.MEMBERS; |
45f95cf5 |
38 | |
29c3cc58 |
39 | val contacts = Contact.listUserContacts (id, level); |
40 | |
41 | switch contacts of |
42 | (_::_) => %> |
43 | <tr> </tr> |
44 | |
45 | <tr> <td><b>Contact information</b></td> </tr> |
45f95cf5 |
46 | |
29c3cc58 |
47 | <% foreach (kind, cont) in contacts do %> |
45f95cf5 |
48 | <tr> <td align="right" valign="top"><b><% Web.html (#name kind) %></b>:</td> |
49 | <td><% Contact.format (kind, cont) %></td> </tr> |
29c3cc58 |
50 | <% end |
51 | end %> |
45f95cf5 |
52 | |
53 | </table> |
54 | |
55 | <% @footer[] %> |