contact.mlt

   1 <% @header[("title", ["Contact information"])];
   2
   3 ref showNormal = true;
   4
   5 if $"cmd" = "add" then
   6         val id = Contact.addContact (Init.getUserId(), Web.stoi ($"knd"), $"v", Contact.privFromInt (Web.stoi ($"priv"))) %>
   7         <h3><b>Contact added</b></h3>
   8 <% end;
   9
  10 if showNormal then %>
  11
  12 <h3><b>Add new contact information</b></h3>
  13
  14 <form action="contact">
  15 <input type="hidden" name="cmd" value="add">
  16 <table>
  17 <tr> <td align="right"><b>Kind</b>:</td> <td><select name="knd">
  18 <% foreach kind in Contact.listKinds () do %>
  19         <option value="<% #id kind %>"><% Web.html (#name kind) %></option>
  20 <% end %>
  21 </select></td> </tr>
  22 <tr> <td align="right"><b>Value</b>:</td> <td><input name="v"></td> </tr>
  23 <tr> <td align="right"><b>Readable by</b>:</td> <td><select name="priv">
  24         <option value="0">Anyone</option>
  25         <option value="1" selected>Members only</option>
  26         <option value="2">Admins only</option>
  27 </select></td> </tr>
  28 <tr> <td><input type="submit" value="Add"></td> </tr>
  29 </table>
  30 </form>
  31
  32 <h3><b>Your contact information</b></h3>
  33
  34 <table>
  35 <% foreach (kind, cont) in Contact.listUserContacts (Init.getUserId(), Contact.ADMINS) do %>
  36         <tr> <td align="right" valign="top"><b><% Web.html (#name kind) %></b>:</td>
  37         <td><% Contact.format (kind, cont) %></td> </tr>
  38 <% end %>
  39 </table>
  40
  41 <% end %>
  42
  43 <% @footer[] %>