% @header [("title", ["Membership applications"])];
val you = Init.getUserId ();
val board = Group.inGroupName "board";
val root = Group.inGroupNum 0;
ref showNormal = true;
if $"show" <> "" then
showNormal := false;
val usr = Web.stoi ($"show");
val user = Init.lookupUser usr;
val appl = App.lookupApp (#app user) %>
Received:
<% #applied appl %>
Approved by:
<%
ref first = true;
ref found = false;
val votes = App.votes (#id appl);
foreach (id, name) in votes do
if first then
first := false
else
%>, <%
end
%><% name %><%
if id = you then
found := true
%> [Unvote]<%
end
end %> <% if (iff board then not found else false) then %>[Vote]<% end %>
Username:
<% #name appl %>
Real name:
<% Web.html (#rname appl) %>
Forward e-mail?
<% if #forward appl then %>yes<% else %>no<% end %>
<%
elseif $"deny" <> "" then
showNormal := false;
val appl = App.lookupApp (Web.stoi ($"deny"))
%>
Deny application for <% #name appl %>
<%
elseif $"deny2" <> "" then
Group.requireGroupName "board";
if not (App.deny (Web.stoi ($"deny2"), $"msg")) then
%>
Error denying application
<%
else
%>
Application denied
<%
end
elseif $"approve" <> "" then
showNormal := false;
val appl = App.lookupApp (Web.stoi ($"approve"))
%>
Approve application for <% #name appl %>
<%
elseif $"approve2" <> "" then
Group.requireGroupName "board";
if not (App.approve (Web.stoi ($"approve2"), $"msg")) then
%>
Error approving application
<%
else
%>
Application approved
<%
end
elseif $"cmd" = "approved" then
showNormal := false
%>
Pending applications
<%
foreach appl in App.listApps App.ACCEPTED do %>
Received:
<% #applied appl %>
Approved by:
<%
ref first = true;
ref found = false;
foreach (id, name) in App.votes (#id appl) do
if first then
first := false
else
%>, <%
end
%><% name %><%
end %>
<% if #forward appl then %>yes<% else %>no<% end %>
Proposed uses:
<% Web.htmlNl (#uses appl) %>
Other information:
<% Web.htmlNl (#other appl) %>
<% if root then %>
Add this member.
<% end
end
elseif $"add" <> "" then
Group.requireGroupNum 0;
showNormal := false;
val id = Web.stoi ($"add");
val appl = App.lookupApp id;
App.add id %>
First, run this on deleuze:
new-user <% #name appl %> "<% #rname appl %>"<% if #forward appl then %> "<% #email appl %>"<% end %>
<%
ref first = true;
ref found = false;
val votes = App.votes (#id appl);
foreach (id, name) in votes do
if first then
first := false
else
%>, <%
end
%><% name %><%
if id = you then
found := true
%> [Unvote]<%
end
end %> <% if (iff board then not found else false) then %>[Vote]<% end %>