X-Git-Url: https://git.hcoop.net/hcoop/portal.git/blobdiff_plain/92855ded461fee0d84ec31dc2a45e0657dfe7688..f2bab7c8c21cd0dde8c63b8450ce628ff654cb80:/users.mlt diff --git a/users.mlt b/users.mlt index 6957f7b..5d960da 100644 --- a/users.mlt +++ b/users.mlt @@ -94,11 +94,7 @@ elseif $"mod" <> "" then | _ => %>
<% Web.html (#name user) %> | -<% val bal = Balance.lookupBalance (#bal user); -if Balance.isNegative bal then - negative := negative + 1 -end %> -<% #amount bal %> | -<%if #name bal <> #name user then %> - <% Web.html (#name bal) %> -<% end %> - |
<% negative %> have negative balances.
- <% elseif $"cmd" = "diff" then showNormal := false; @@ -178,23 +150,31 @@ end %> <% if showNormal then %> Add a user manually<% Web.html (#name user) %> | +<% foreach user in List.filter (fn u => ($"showretired" = "1") or not (Group.userInGroupName (#id u, "retired"))) (Init.listUsers ()) do %> + | |
<% Web.html (#name user) %> | +<% val bal = Balance.lookupBalance (#bal user); if #name bal <> #name user then %> <% Web.html (#name bal) %> <% end %> - | [Modify] [Delete] - [Retire] | [Modify] [Delete] + [Retire] | + <% end %>