Changed to use new smlsql interface

[hcoop/portal.git] / contact.mlt

<% @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"))) %>
	<h3><b>Contact added</b></h3>
<% end;

if showNormal then %>

<h3><b>Add new contact information</b></h3>

<form action="contact">
<input type="hidden" name="cmd" value="add">
<table>
<tr> <td align="right"><b>Kind</b>:</td> <td><select name="knd">
<% 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">
	<option value="0">Anyone</option>
	<option value="1" selected>Members only</option>
	<option value="2">Admins only</option>
</select></td> </tr>
<tr> <td><input type="submit" value="Add"></td> </tr>
</table>
</form>

<h3><b>Your contact information</b></h3>

<table>
<% foreach (kind, cont) in Contact.listUserContacts (Init.getUserId(), Contact.ADMINS) do %>
	<tr> <td align="right" valign="top"><b><% Web.html (#name kind) %></b>:</td>
	<td><% Contact.format (kind, cont) %></td> </tr>
<% end %>
</table>

<% end %>

<% @footer[] %>