Increase domain component length limit

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

diff --git a/groups.mlt b/groups.mlt
index 3941620..2868d1b 100644 (file)
--- a/groups.mlt
+++ b/groups.mlt
@@ -6,24 +6,24 @@ ref showNormal = true;
 
 if $"cmd" = "Create" then
        if not (Group.validGroupName ($"name")) then %>
-               <h3><b>Invalid group name</b></h3>
+               <h3>Invalid group name</h3>
        <% else switch Group.groupNameToId ($"name") of
                  SOME _ => %>
-                       <h3><b>Group name already in use</b></h3>
+                       <h3>Group name already in use</h3>
 <%             | NONE =>
                        val id = Group.addGroup ($"name") %>
-                       <h3><b>Group added</b></h3>
+                       <h3>Group added</h3>
 <%             end
        end
 elseif $"mod" <> "" then
        showNormal := false;
        val group = Group.lookupGroup (Web.stoi ($"mod")) %>
-<h3><b>Modify group record</b></h3>
+<h3>Modify group record</h3>
 
-<form action="groups">
+<form action="groups" method="post">
 <input type="hidden" name="id" value="<% $"mod" %>">
-<table>
-<tr> <td align="right"><b>Name</b>:</td> <td><input name="name" value="<% #name group %>"></td> </tr>
+<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>
@@ -31,50 +31,50 @@ elseif $"mod" <> "" then
 <% elseif $"cmd" = "Save" then
        val group = Group.lookupGroup (Web.stoi ($"id"));
        Group.modGroup {group with name = $"name"} %>
-       <h3><b>Group record saved.</b></h3>
+       <h3>Group record saved.</h3>
 
 <% elseif $"del" <> "" then
        showNormal := false;
        val group = Group.lookupGroup (Web.stoi ($"del")) %>
-       <h3><b>Are you sure you want to delete group <% #name group %>?</b></h3>
+       <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><b><% #name group %> deleted!</b></h3>
+       <h3><% #name group %> deleted!</h3>
 
 <% elseif $"cmd" = "Grant" then
        Group.addToGroup {usr = Web.stoi ($"usr"), grp = Web.stoi ($"grp")} %>
-       <h3><b>Membership granted.</b></h3>
+       <h3>Membership granted.</h3>
 
 <% elseif $"revoke" <> "" then
        Group.removeFromGroup {usr = Web.stoi ($"revoke"), grp = Web.stoi ($"grp")} %>
-       <h3><b>Membership revoked.</b></h3>
+       <h3>Membership revoked.</h3>
 
 <% end %>
 
 <% if showNormal then %>
 
-<h3><b>Create group</b></h3>
+<h3>Create group</h3>
 
-<form action="groups">
-<table>
-<tr> <td align="right"><b>Name</b>:</td> <td><input name="name"></td> </tr>
+<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><b>Grant membership</b></h3>
+<h3>Grant membership</h3>
 
-<form action="groups">
-<table>
-<tr> <td align="right"><b>Group</b>:</td> <td><select name="grp">
+<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 align="right"><b>Member</b>:</td> <td><select name="usr">
+<tr> <td>Member:</td> <td><select name="usr">
 <% foreach user in Init.listUsers () do %>
        <option value="<% #id user %>"><% Web.html (#name user) %></option>
 <% end %>
@@ -83,11 +83,11 @@ elseif $"mod" <> "" then
 </table>
 </form>
 
-<h3><b>Manage current groups</b></h3>
+<h3>Manage current groups</h3>
 
 <table>
 <% foreach group in Group.listGroups () do %>
-       <tr> <td><% Web.html (#name group) %>(#<% #id group %>)</td> <td></td> <td><a href="groups?mod=<% #id group %>">[Modify]</a> <a href="groups?del=<% #id group %>">[Delete]</a></td> </tr>
+       <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