X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/add44c001af25ce13aff411079be8138877342f9..4e5f7be4746aba157a6fe0cfe9291a1a77dd90d9:/money.mlt diff --git a/money.mlt b/money.mlt index 3048309..34002dd 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 @@ -16,7 +18,7 @@ if $"hist" <> "" then val admin = Group.inGroupName "money"; showNormal := false %> -
Date | Description | Amount | Last modified | Participants |
<% #name bal %> | <% #amount bal %> | <% switch Balance.listBalanceUsers (#id bal) of [] => @@ -53,21 +55,60 @@ end %> |
<% #name bal %> | <% #amount bal %> | +<% switch Balance.listBalanceUsers (#id bal) of + [] => + | (user :: users) => + %><% Web.html (#name user) %> [History]<% + foreach user in users do + %>, <% Web.html (#name user) %> [History]<% + end +end %> |
<% #name bal %> | <% #amount bal %> | +<% switch Balance.listBalanceUsers (#id bal) of + [] => + | (user :: users) => + %><% Web.html (#name user) %> [History]<% + foreach user in users do + %>, <% Web.html (#name user) %> [History]<% + end +end %> |