X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/ba6996e317cb49614bce6b9cdf0f5a70e20ba7b0..e38fe5b0e18be227d05b0071de8773d4b8c02236:/money.mlt
diff --git a/money.mlt b/money.mlt
index cbc7a6f..8e6f24c 100644
--- a/money.mlt
+++ b/money.mlt
@@ -459,11 +459,35 @@ elseif $"cmd" = "checkout" then
(nil, nil) => %>No matches.<%
end
+elseif $"cmd" = "delinq" then
+ showNormal := false;
+ val dqs = Money.delinquentPledgers () %>
+
+ Member | Pledge | Balance |
+<% foreach dq in dqs do %>
+ <% #name dq %> | <% #shares dq %> | $<% #balance dq %> |
+<% end %>
+
+
+ Int.toString (#id dq)) dqs) %>">Lower these pledges to 1
+
+<% elseif $"lower" <> "" then
+ Money.resetPledges (List.map Web.stoi (String.tokens (fn ch => ch = #",") ($"lower")))
+
+ %>Pledges reset.
<%
+
end %>
-<% if showNormal then %>
+<% if showNormal then
+ val you = Init.getUser();
+ val bal = Balance.lookupBalance (#bal you);
+ val deposit = Balance.depositAmount (#id bal) %>
+
+Your balance: $<% Util.sub (#amount bal, deposit) %>
+Deposit: $<% deposit %> (3 months of dues at the minimal pledge level)
+
+
-Your balance: $<% #amount (Balance.lookupBalance (#bal (Init.getUser ()))) %>
<% if (iff Group.inGroupName "money" then $"lookback" = "" else $"audit" <> "") then %>Sum of all active balances: $<% Balance.sumOwnedBalances () %>
<% end %>
List all transactions
@@ -473,6 +497,7 @@ end %>
<% if (Group.inGroupName "money" and $"lookback" = "") or $"audit" <> "" then %>
+Drop pledges of delinquent members
Switch to regular member view
New transaction: