<% @header[("title", ["Contact information"])]; ref showNormal = true; if $"cmd" = "add" then val id = Contact.addContact (Init.getUserId(), Web.stoi ($"knd"), $"v", Contact.privFromInt (Web.stoi ($"priv"))) %>

Contact added

<% elseif $"mod" <> "" then showNormal := false; val id = Web.stoi ($"mod"); val cont = Contact.lookupContact id %>

Modify contact entry

Kind:
Value:
Readable by:
<% elseif $"save" <> "" then val id = Web.stoi ($"save"); val cont = Contact.lookupContact id; Contact.modContact {cont with knd = Web.stoi ($"knd"), v = $"v", priv = Contact.privFromInt (Web.stoi ($"priv"))} %>

Contact entry saved

<% elseif $"del" <> "" then showNormal := false; val id = Web.stoi ($"del"); val cont = Contact.lookupContact id %>

Are you sure you want to delete contact entry "<% Web.html (#v cont) %>"?

Yes, delete "<% Web.html (#v cont) %>"! <% elseif $"del2" <> "" then val id = Web.stoi ($"del2"); val cont = Contact.lookupContact id; Contact.deleteContact id %>

Contact entry "<% Web.html (#v cont) %>" deleted

<% end; if showNormal then %>

Add new contact information

Kind:
Value:
Readable by:

Your contact information

<% foreach (kind, cont) in Contact.listUserContacts (Init.getUserId(), Contact.ADMINS) do %> <% end %>
<% Web.html (#name kind) %>: <% Contact.format (kind, cont) %> <% switch #priv cont of Contact.PUBLIC => %>Public<% | Contact.MEMBERS => %>Members only<% | Contact.ADMINS => %>Admins only<% end %> [Modify] [Delete]
<% end %> <% @footer[] %>