Increase domain component length limit

[hcoop/zz_old/portal.git] / groups.mlt

<% Group.requireGroupNum 0;

@header [("title", ["Group management"])];

ref showNormal = true;

if $"cmd" = "Create" then
	if not (Group.validGroupName ($"name")) then %>
		<h3>Invalid group name</h3>
	<% else	switch Group.groupNameToId ($"name") of
		  SOME _ => %>
			<h3>Group name already in use</h3>
<%		| NONE =>
			val id = Group.addGroup ($"name") %>
			<h3>Group added</h3>
<%		end
	end
elseif $"mod" <> "" then
	showNormal := false;
	val group = Group.lookupGroup (Web.stoi ($"mod")) %>
<h3>Modify group record</h3>

<form action="groups" method="post">
<input type="hidden" name="id" value="<% $"mod" %>">
<table class="blanks">
<tr> <td>Name:</td> <td><input name="name" value="<% #name group %>"></td> </tr>
<tr> <td><input type="submit" name="cmd" value="Save"></td> </tr>
</table>
</form>

<% elseif $"cmd" = "Save" then
	val group = Group.lookupGroup (Web.stoi ($"id"));
	Group.modGroup {group with name = $"name"} %>
	<h3>Group record saved.</h3>

<% elseif $"del" <> "" then
	showNormal := false;
	val group = Group.lookupGroup (Web.stoi ($"del")) %>
	<h3>Are you sure you want to delete group <% #name group %>?</h3>
	<a href="groups?del2=<% $"del" %>">Yes, delete <% #name group %>!</a>

<% elseif $"del2" <> "" then
	val group = Group.lookupGroup (Web.stoi ($"del2"));
	Group.deleteGroup (Web.stoi ($"del2")) %>
	<h3><% #name group %> deleted!</h3>

<% elseif $"cmd" = "Grant" then
	Group.addToGroup {usr = Web.stoi ($"usr"), grp = Web.stoi ($"grp")} %>
	<h3>Membership granted.</h3>

<% elseif $"revoke" <> "" then
	Group.removeFromGroup {usr = Web.stoi ($"revoke"), grp = Web.stoi ($"grp")} %>
	<h3>Membership revoked.</h3>

<% end %>

<% if showNormal then %>

<h3>Create group</h3>

<form action="groups" method="post">
<table class="blanks">
<tr> <td>Name:</td> <td><input name="name"></td> </tr>
<tr> <td><input type="submit" name="cmd" value="Create"></td> </tr>
</table>
</form>

<h3>Grant membership</h3>

<form action="groups" method="post">
<table class="blanks">
<tr> <td>Group:</td> <td><select name="grp">
<% foreach group in Group.listGroups () do %>
	<option value="<% #id group %>"><% Web.html (#name group) %></option>
<% end %>
</select></td> </tr>
<tr> <td>Member:</td> <td><select name="usr">
<% foreach user in Init.listUsers () do %>
	<option value="<% #id user %>"><% Web.html (#name user) %></option>
<% end %>
</select></td> </tr>
<tr> <td><input type="submit" name="cmd" value="Grant"></td> </tr>
</table>
</form>

<h3>Manage current groups</h3>

<table>
<% foreach group in Group.listGroups () do %>
	<tr> <td><% Web.html (#name group) %></td> <td></td> <td><a href="groups?mod=<% #id group %>">[Modify]</a> <a href="groups?del=<% #id group %>">[Delete]</a></td> </tr>
<% foreach user in Group.groupMembers (#id group) do %>
	<tr> <td></td> <td><a href="user?id=<% #id user %>"><% Web.html (#name user) %></a></td> <td><a href="groups?revoke=<% #id user %>&grp=<% #id group %>">[Revoke]</a></td> </tr>
<% end
end %>
</table>

<% end %>

<% @footer [] %>