if $"cmd" = "add" then
val id = Contact.addContact (Init.getUserId(), Web.stoi ($"knd"), $"v", Contact.privFromInt (Web.stoi ($"priv"))) %>
if $"cmd" = "add" then
val id = Contact.addContact (Init.getUserId(), Web.stoi ($"knd"), $"v", Contact.privFromInt (Web.stoi ($"priv"))) %>
<% elseif $"mod" <> "" then
showNormal := false;
val id = Web.stoi ($"mod");
val cont = Contact.lookupContact id %>
<% elseif $"mod" <> "" then
showNormal := false;
val id = Web.stoi ($"mod");
val cont = Contact.lookupContact id %>
<% foreach kind in Contact.listKinds () do %>
<option value="<% #id kind %>"<% if #knd cont = #id kind then %> selected<% end %>><% Web.html (#name kind) %></option>
<% end %>
</select></td> </tr>
<% foreach kind in Contact.listKinds () do %>
<option value="<% #id kind %>"<% if #knd cont = #id kind then %> selected<% end %>><% Web.html (#name kind) %></option>
<% end %>
</select></td> </tr>
-<tr> <td align="right"><b>Value</b>:</td> <td><input name="v" value="<% Web.html (#v cont) %>"></td> </tr>
-<tr> <td align="right"><b>Readable by</b>:</td> <td><select name="priv">
+<tr> <td>Value:</td> <td><input name="v" value="<% Web.html (#v cont) %>"></td> </tr>
+<tr> <td>Readable by:</td> <td><select name="priv">
<option value="0"<% if #priv cont = Contact.PUBLIC then %> selected<% end %>>Anyone</option>
<option value="1"<% if #priv cont = Contact.MEMBERS then %> selected<% end %>>Members only</option>
<option value="2"<% if #priv cont = Contact.ADMINS then %> selected<% end %>>Admins only</option>
<option value="0"<% if #priv cont = Contact.PUBLIC then %> selected<% end %>>Anyone</option>
<option value="1"<% if #priv cont = Contact.MEMBERS then %> selected<% end %>>Members only</option>
<option value="2"<% if #priv cont = Contact.ADMINS then %> selected<% end %>>Admins only</option>
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"))} %>
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"))} %>
<% elseif $"del" <> "" then
showNormal := false;
val id = Web.stoi ($"del");
val cont = Contact.lookupContact id %>
<% elseif $"del" <> "" then
showNormal := false;
val id = Web.stoi ($"del");
val cont = Contact.lookupContact id %>
<a href="contact?del2=<% id %>">Yes, delete "<% Web.html (#v cont) %>"!</a>
<% elseif $"del2" <> "" then
val id = Web.stoi ($"del2");
val cont = Contact.lookupContact id;
Contact.deleteContact id %>
<a href="contact?del2=<% id %>">Yes, delete "<% Web.html (#v cont) %>"!</a>
<% elseif $"del2" <> "" then
val id = Web.stoi ($"del2");
val cont = Contact.lookupContact id;
Contact.deleteContact id %>
<% foreach kind in Contact.listKinds () do %>
<option value="<% #id kind %>"><% Web.html (#name kind) %></option>
<% end %>
</select></td> </tr>
<% foreach kind in Contact.listKinds () do %>
<option value="<% #id kind %>"><% Web.html (#name kind) %></option>
<% end %>
</select></td> </tr>
-<tr> <td align="right"><b>Value</b>:</td> <td><input name="v"></td> </tr>
-<tr> <td align="right"><b>Readable by</b>:</td> <td><select name="priv">
+<tr> <td>Value:</td> <td><input name="v" required="required"></td> </tr>
+<tr> <td>Readable by:</td> <td><select name="priv">
<option value="0">Anyone</option>
<option value="1" selected>Members only</option>
<option value="2">Admins only</option>
<option value="0">Anyone</option>
<option value="1" selected>Members only</option>
<option value="2">Admins only</option>
<td><% Contact.format (kind, cont) %></td>
<td><i><% switch #priv cont of
Contact.PUBLIC => %>Public<%
<td><% Contact.format (kind, cont) %></td>
<td><i><% switch #priv cont of
Contact.PUBLIC => %>Public<%