<% Group.requireGroupNum 0;
@header [("title", ["Member management"])];
ref showNormal = true;
if $"cmd" = "Create" then
if not (Init.validUsername ($"name")) then %>
Invalid username
<% else switch Init.userNameToId ($"name") of
SOME _ => %>
Username already in use
<% | NONE =>
val ap = Web.stoi ($"app");
val bal =
(case $"bal" of
"" => Balance.addBalance ($"name")
| s => Web.stoi s);
val id = Init.addUser ($"name", $"rname", bal, ap, 1);
Group.addToGroups (id, map Web.stoi (Web.getMultiParam "grp"));
if $"amount" <> "" then
val amount = Web.stor ($"amount");
val trn = Money.addTransaction ($"descr", amount, Init.dateString ());
Money.addCharge {trn = trn, usr = id, amount = amount};
Money.applyCharges trn
end;
App.add ap;
if $"subscribe" = "on" then
if not (Pref.subscribe ("hcoop-announce", $"name" ^ Init.emailSuffix)) then
%>
Error subscribing to hcoop-announce
<%
end
end;
if $"nomail" = "" then
App.welcome ap
end
%>
Member added
<% end
end
elseif $"mod" <> "" then
showNormal := false;
val user = Init.lookupUser (Web.stoi ($"mod")) %>
Modify member record
<% elseif $"cmd" = "Save" then
val user = Init.lookupUser (Web.stoi ($"id"));
Init.modUser {user with name = $"name", bal = Web.stoi ($"bal")} %>
Member record saved.
<% elseif $"del" <> "" then
showNormal := false;
val user = Init.lookupUser (Web.stoi ($"del")) %>