X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/b251872c7d6e4d65e8a5deafec33949112aa06e5..e38fe5b0e18be227d05b0071de8773d4b8c02236:/money.mlt
diff --git a/money.mlt b/money.mlt
index 230eca5..8e6f24c 100644
--- a/money.mlt
+++ b/money.mlt
@@ -1,5 +1,7 @@
<% @header [("title", ["MoneyMatters"])];
+val root = Group.inGroupNum 0;
+
ref showNormal = true;
if $"hist" <> "" then
@@ -37,7 +39,7 @@ end %>
<% elseif $"cmd" = "bals" then
showNormal := false %>
-
Balances
+Active Balances
<% foreach bal in Balance.listOwnedBalances () do %>
@@ -53,6 +55,45 @@ end %>
<% end %>
+<% elseif $"cmd" = "deadbals" then
+ showNormal := false %>
+
+Retired Balances
+
+
+
+<% elseif $"cmd" = "nbals" then
+ showNormal := false;
+ val bals = Balance.listNegativeOwnedBalances () %>
+
+Negative Active Balances (<% length bals %>)
+
+
+
<% elseif $"cmd" = "hosting" then
Group.requireGroupName "money";
showNormal := false %>
@@ -133,6 +174,7 @@ end %>
<% elseif $"cmd" = "pay" then
Group.requireGroupName "money";
+ val uid = (case $"user" of "" => ~1 | s => Web.stoi s);
showNormal := false %>
New member payment
@@ -140,12 +182,18 @@ end %>
+
+Look up a Google Checkout e-mail address
+
+
Most recent transactions
@@ -329,14 +538,20 @@ end %>
<% else %>
-
-
+Switch to audit view
+<% val lookback = case $"lookback" of "" => 20 | lb => Web.stoi lb;
+ @payment [] %>
Your recent account activity
+
+
Date | Description | Amount |
-<% foreach (amount, trn) in Money.listUserTransactionsLimit (Init.getUserId (), 20) do %>
+<% foreach (amount, trn) in Money.listUserTransactionsLimit (Init.getUserId (), lookback) do %>
<% #d trn %> | <% Web.html (#descr trn) %> | <% amount %>/<% #amount trn %> |
<% end %>