Change granter.sh to give permissions to user specified on command line

[hcoop/zz_old/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>Subscribed</h3>

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

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

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

<h3>Modify category</h3>

<form action="support" method="post">
<input type="hidden" name="save" value="<% id %>">
<table class="blanks">
<tr> <td>Name:</td> <td><input name="name" value="<% Web.html (#name cat) %>"></td> </tr>
<tr> <td>Owning group:</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>Description:</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>Category saved</h3>

<% elseif $"del" <> "" then
	Group.requireGroupName "support";
	showNormal := false;
	val id = Web.stoi ($"del");
	val cat = Support.lookupCategory id;
	%><h3>Are you sure you want to delete category "<% Web.html (#name cat) %>"?</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>"<% Web.html (#name cat) %>" deleted</h3>

<% end;

if showNormal then %>

<h3>Choose a category:</h3>

<% foreach (sub, cat) in Support.listCategoriesWithSubscriptions you do %>
<a href="issue?cat=<% #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>Add new category</h3>

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

<% end %>

<% end %>

<% @footer[] %>