+
+<% elseif $"cmd" = "dues2" then
+ Group.requireGroupName "money";
+ Money.billDues {descr = $"descr", base = Web.stor ($"base"), date = $"d"};
+
+ %>
Dues debits added.
+
<% elseif $"cmd" = "even" then
Group.requireGroupName "money";
val id = Money.addTransaction ($"descr", Web.stor ($"amount"), $"d");
@@ -342,62 +460,316 @@ foreach (name, cha) in Money.listChargesWithNames id do
end %>
+<% elseif $"cmd" = "paypal" then
+ showNormal := false;
+ val apps = App.searchPaypal ($"email");
+ val users = Init.searchPaypal ($"email");
+
+ switch apps of
+ _ :: _ =>
+ %>
Approved applications
+
+ <% foreach appl in apps 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 %>
+ <% end
+ end;
+
+ switch users of
+ nil => %>No matches.<%
+ end
+
+elseif $"cmd" = "checkout" then
+ showNormal := false;
+ val apps = App.searchCheckout ($"email");
+ val users = Init.searchCheckout ($"email");
+
+ switch apps of
+ _ :: _ =>
+ %>
Approved applications
+
+ <% foreach appl in apps 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 %>
+
+<% end %>
+
+<% if showNormal then
+ val you = Init.getUser();
+ val bal = Balance.lookupBalance (#bal you);
+ val deposit = Balance.depositAmount (#id bal);
+ val showBal = Util.sub (#amount bal, deposit) %>
+
+
Your balance: $<% showBal %>
+Deposit: $<% deposit %> (3 months of dues at the minimal pledge level)
+Co-op balance: $<% #amount (Balance.lookupBalance (valOf (Balance.balanceNameToId "hcoop"))) %>
+
+
+
+<% if (iff Group.inGroupName "money" then $"lookback" = "" else $"audit" <> "") then %>
Sum of all active balances: $<% Balance.sumOwnedBalances () %>