Support retiring balances of departed members

[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>

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

<h3><b>Modify contact entry</b></h3>

<form action="contact" method="post">
<input type="hidden" name="save" value="<% id %>">
<table>
<tr> <td align="right"><b>Kind</b>:</td> <td><select name="knd">
<% 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">
	<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>
</select></td> </tr>
<tr> <td><input type="submit" value="Save"></td> </tr>
</table>
</form>

<% 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"))} %>
	<h3><b>Contact entry saved</b></h3>

<% elseif $"del" <> "" then
	showNormal := false;
	val id = Web.stoi ($"del");
	val cont = Contact.lookupContact id %>
	<h3><b>Are you sure you want to delete contact entry "<% Web.html (#v cont) %>"?</b></h3>
	<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 %>
	<h3><b>Contact entry "<% Web.html (#v cont) %>" deleted</b></h3>

<% end;

if showNormal then %>

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

<form action="contact" method="post">
<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>
	<td><i><% switch #priv cont of
		  Contact.PUBLIC => %>Public<%
		| Contact.MEMBERS => %>Members only<%
		| Contact.ADMINS => %>Admins only<%
	end %></i></td>
	<td><a href="contact?mod=<% #id cont %>">[Modify]</a> <a href="contact?del=<% #id cont %>">[Delete]</a></tr>
<% end %>
</table>

<% end %>

<% @footer[] %>