X-Git-Url: https://git.hcoop.net/hcoop/portal.git/blobdiff_plain/afc975d0463c554c5dd404851f151ba0e63c1353..10e55875c83d1d44a0b8d31ff1e49cfec843e9a2:/money.mlt diff --git a/money.mlt b/money.mlt index c7756f5..af404c5 100644 --- a/money.mlt +++ b/money.mlt @@ -1,11 +1,13 @@ <% @header [("title", ["MoneyMatters"])]; +val root = Group.inGroupNum 0; + ref showNormal = true; if $"hist" <> "" then showNormal := false; val id = Web.stoi ($"hist") %> -
Date | Description | Amount | |||||
<% #d trn %> | <% Web.html (#descr trn) %> | <% amount %>/<% #amount trn %> |
Date | Description | Amount | Last modified | Participants | |||
<% #d trn %> | <% Web.html (#descr trn) %> | <% #amount trn %> | <% #stamp trn %> | @@ -27,7 +29,29 @@ if $"hist" <> "" then | _ => %>multi | <% end; if admin then - %>[Hosting] [Payment] [Other] | + %>[Bill] [Payment] [Other] | +[Delete] | <% +end +%>
Date | Description | Amount | Last modified | Participants | |||
<% #d trn %> | <% Web.html (#descr trn) %> | <% #amount trn %> | <% #stamp trn %> | +<% switch Money.listChargesWithNames (#id trn) of + [(name, cha)] => %><% name %> | <% + | _ => %>multi | <% +end; +if admin then + %>[Bill] [Payment] [Other] | [Delete] | <% 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 %> |