<% elseif $"cmd" = "pay2" then
Group.requireGroupName "money";
val amount = Web.stor ($"amount");
val id = Money.addTransaction ($"descr", amount, $"d");
Money.addCharge {trn = id, usr = Web.stoi ($"usr"), amount = amount};
Money.applyCharges id;
%>
Payment transaction added.
<% elseif $"modPay" <> "" then
Group.requireGroupName "money";
showNormal := false;
val id = Web.stoi ($"modPay");
val trn = Money.lookupTransaction id %>
Modify member payment
<% elseif $"cmd" = "even" then
Group.requireGroupName "money";
val id = Money.addTransaction ($"descr", Web.stor ($"amount"), $"d");
Money.addEvenCharges (id, map Web.stoi (Web.getMultiParam "usrs"))
%>
Even transaction added.
<% elseif $"modEven" <> "" then
Group.requireGroupName "money";
showNormal := false;
val trn = Money.lookupTransaction (Web.stoi ($"modEven")) %>
Modify even transaction
<% elseif $"saveEven" <> "" then
Group.requireGroupName "money";
val id = Web.stoi ($"saveEven");
val trn = Money.lookupTransaction id;
Money.clearCharges id;
Money.modTransaction {trn with descr = $"descr", d = $"d", amount = Web.stor ($"amount")};
Money.addEvenCharges (id, map Web.stoi (Web.getMultiParam "usrs"))
%>
Even transaction modified
<% elseif $"del" <> "" then
Group.requireGroupName "money";
showNormal := false;
val trn = Money.lookupTransaction (Web.stoi ($"del")) %>