X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/e3896e5138a37e7d8ee03426293c31212007f437..b49e2370e6f535c8bbfe1c87da105f5554669d86:/money.mlt
diff --git a/money.mlt b/money.mlt
index 08aaa4b..bd532be 100644
--- a/money.mlt
+++ b/money.mlt
@@ -37,7 +37,7 @@ end %>
<% elseif $"cmd" = "bals" then
showNormal := false %>
-
Balances
+Active Balances
<% foreach bal in Balance.listOwnedBalances () do %>
@@ -53,6 +53,25 @@ end %>
<% end %>
+<% elseif $"cmd" = "deadbals" then
+ showNormal := false %>
+
+Retired Balances
+
+
+<% foreach bal in Balance.listUnownedBalances () do %>
+<% #name bal %> | <% #amount bal %> |
+<% switch Balance.listBalanceUsers (#id bal) of
+ [] =>
+ | (user :: users) =>
+ %><% Web.html (#name user) %><%
+ foreach user in users do
+ %>, <% Web.html (#name user) %><%
+ end
+end %> |
+<% end %>
+
+
<% elseif $"cmd" = "hosting" then
Group.requireGroupName "money";
showNormal := false %>
@@ -307,10 +326,12 @@ end %>
<% if showNormal then %>
-Your balance: $<% #amount (Balance.lookupBalance (#bal (Init.getUser ()))) %>
+Your balance: $<% #amount (Balance.lookupBalance (#bal (Init.getUser ()))) %>
+<% if Group.inGroupName "money" then %>Sum of all active balances: $<% Balance.sumOwnedBalances () %>
<% end %>
List all transactions
-List all balances
+List active balances
+List retired balances
<% if Group.inGroupName "money" then %>