% if $"id" = "" then
@header [("title", ["Contact information directory"])]
foreach kind in Contact.listKinds () do %>
<% Web.html (#name kind) %>
<% end
else
val id = Web.stoi ($"id");
val kind = Contact.lookupKind id;
@header [("title", [Web.html (#name kind) ^ " directory"])];
val level = iff Group.inGroupName "contact" then Contact.ADMINS else Contact.MEMBERS;
%>
<% name %> | <% Contact.format (kind, cont) %> |