dir.mlt

   1 <% if $"id" = "" then
   2         @header [("title", ["Contact information directory"])]
   3
   4         foreach kind in Contact.listKinds () do %>
   5                 <a href="dir?id=<% #id kind %>"><% Web.html (#name kind) %></a><br>
   6         <% end
   7 else
   8         val id = Web.stoi ($"id");
   9         val kind = Contact.lookupKind id;
  10         @header [("title", [Web.html (#name kind) ^ " directory"])];
  11
  12         val level = iff Group.inGroupName "contact" then Contact.ADMINS else Contact.MEMBERS;
  13
  14         %><table><%
  15         foreach (name, cont) in Contact.listContactsByKind (id, level) do %>
  16                 <tr> <td align="right"><a href="user?id=<% #usr cont %>"><% name %></a></td>
  17                 <td><% Contact.format (kind, cont) %></td> </tr>
  18         <% end
  19         %></table><%
  20 end;
  21
  22 @footer[] %>