| 1 | <% val id = Web.stoi ($"id"); |
| 2 | val user = Init.lookupUser id; |
| 3 | |
| 4 | @header[("title", [#name user])] %> |
| 5 | |
| 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><% |
| 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> |
| 21 | |
| 22 | <% val links = Link.listUserLinks id; |
| 23 | |
| 24 | switch links of |
| 25 | (_::_) => %> |
| 26 | <tr> </tr> |
| 27 | |
| 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; |
| 38 | |
| 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> |
| 46 | |
| 47 | <% foreach (kind, cont) in contacts do %> |
| 48 | <tr> <td align="right" valign="top"><b><% Web.html (#name kind) %></b>:</td> |
| 49 | <td><% Contact.format (kind, cont) %></td> </tr> |
| 50 | <% end |
| 51 | end %> |
| 52 | |
| 53 | </table> |
| 54 | |
| 55 | <p><a href="apps?show=<% id %>">Show archived membership application</a></p> |
| 56 | |
| 57 | <% @footer[] %> |