X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/f1ea3762bc9df26700bba252f9491087211ebad1..b49e2370e6f535c8bbfe1c87da105f5554669d86:/money.mlt diff --git a/money.mlt b/money.mlt index b16b14a..bd532be 100644 --- a/money.mlt +++ b/money.mlt @@ -2,36 +2,71 @@ ref showNormal = true; -if $"cmd" = "list" then +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 %> | <% switch Money.listChargesWithNames (#id trn) of - [(name, cha)] => %><% name %> | multi | <% + [(name, cha)] => %><% name %> | <% + | _ => %>multi | <% +end; +if admin then + %>[Hosting] [Payment] [Other] | +[Delete] | <% end +%><% end %>
<% #name bal %> | <% #amount bal %> | <% switch Balance.listBalanceUsers (#id bal) of [] => | (user :: users) => - %><% Web.html (#name user) %><% + %><% Web.html (#name user) %><% foreach user in users do - %>, <% Web.html (#name user) %><% + %>, <% Web.html (#name user) %><% + end +end %> |
<% #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 %> |