Managing support categories and subscriptions

[bpt/portal.git] / support.mlt

<% @header[("title", ["Support"])];

val you = Init.getUserId ();
val admin = Group.inGroupName "support";

ref showNormal = true;

if $"sub" <> "" then
	Support.subscribe { cat = Web.stoi ($"sub"), usr = you }
	%><h3><b>Subscribed</b></h3>

<% elseif $"unsub" <> "" then
	Support.unsubscribe { cat = Web.stoi ($"unsub"), usr = you }
	%><h3><b>Unsubscribed</b></h3>

<% elseif $"cmd" = "add" then
	Group.requireGroupName "support";
	val id = Support.addCategory (Web.stoi ($"grp"), $"name", $"descr")
	%><h3><b>Category added</b></h3>

<% elseif $"mod" <> "" then
	Group.requireGroupName "support";
	showNormal := false;
	val id = Web.stoi ($"mod");
	val cat = Support.lookupCategory id %>

<h3><b>Modify category</b></h3>

<form action="support">
<input type="hidden" name="save" value="<% id %>">
<table>
<tr> <td align="right"><b>Name</b>:</td> <td><input name="name" value="<% Web.html (#name cat) %>"></td> </tr>
<tr> <td align="right"><b>Owning group</b>:</td> <td><select name="grp">
<% foreach group in Group.listGroups () do %>
	<option value="<% #id group %>"<% if #id group = #grp cat then %> selected<% end %>><% #name group %></option>
<% end %>
</select></td> </tr>
<tr> <td align="right"><b>Description</b>:</td> <td><input name="descr" value="<% Web.html (#descr cat) %>"></td> </tr>
<tr> <td><input type="submit" value="Save"></td> </tr>
</table>
</form>

<% elseif $"save" <> "" then
	Group.requireGroupName "support";
	val id = Web.stoi ($"save");
	val cat = Support.lookupCategory id;
	Support.modCategory {cat with name = $"name", descr = $"descr", grp = Web.stoi ($"grp")}
	%><h3><b>Category saved</b></h3>

<% elseif $"del" <> "" then
	Group.requireGroupName "support";
	showNormal := false;
	val id = Web.stoi ($"del");
	val cat = Support.lookupCategory id;
	%><h3><b>Are you sure you want to delete category "<% Web.html (#name cat) %>"?</b></h3>
	<a href="support?del2=<% id %>">Yes, delete "<% Web.html (#name cat) %>"!</a>

<% elseif $"del2" <> "" then
	Group.requireGroupName "support";
	val id = Web.stoi ($"del2");
	val cat = Support.lookupCategory id;
	Support.deleteCategory id;
	%><h3><b>"<% Web.html (#name cat) %>" deleted</b></h3>

<% end;

if showNormal then %>

<h3><b>New issue in:</b></h3>

<% foreach (sub, cat) in Support.listCategoriesWithSubscriptions you do %>
<a href="issue?new=<% #id cat %>"><% Web.html (#name cat) %></a>: <% Web.html (#descr cat) %>
<% if sub then %>
<a href="support?unsub=<% #id cat %>">[Unsubscribe]</a>
<% else %>
<a href="support?sub=<% #id cat %>">[Subscribe]</a>
<% end %>
<% if admin then %>
<a href="support?mod=<% #id cat %>">[Modify]</a>
<a href="support?del=<% #id cat %>">[Delete]</a>
<% end %>
<br>
<% end %>

<% if admin then %>

<h3><b>Add new category</b></h3>

<form action="support">
<input type="hidden" name="cmd" value="add">
<table>
<tr> <td align="right"><b>Name</b>:</td> <td><input name="name"></td> </tr>
<tr> <td align="right"><b>Owning group</b>:</td> <td><select name="grp">
<% foreach group in Group.listGroups () do %>
	<option value="<% #id group %>"><% #name group %></option>
<% end %>
</select></td> </tr>
<tr> <td align="right"><b>Description</b>:</td> <td><input name="descr"></td> </tr>
<tr> <td><input type="submit" value="Add"></td> </tr>
</table>
</form>

<% end %>

<% end %>

<% @footer[] %>