Commit | Line | Data |
---|---|---|
6e8dc436 AC |
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[] %> |