user.mlt

   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[] %>