<% 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;
%>
<%
foreach (name, cont) in Contact.listContactsByKind (id, level) do %>