ref showNormal = true;
-if $"cmd" = "list" then
+if $"hist" <> "" then
+ showNormal := false;
+ val id = Web.stoi ($"hist") %>
+<table>
+<tr> <td><b>Date</b></td> <td><b>Description</b></td> <td><b>Amount</b></td> </tr>
+<% foreach (amount, trn) in Money.listUserTransactions id do %>
+<tr> <td><% #d trn %></td> <td><a href="money?trn=<% #id trn %>"><% Web.html (#descr trn) %></a></td> <td><% amount %>/<% #amount trn %></td> </tr>
+<% end %>
+</table>
+
+<% elseif $"cmd" = "list" then
val admin = Group.inGroupName "money";
showNormal := false %>
<% switch Balance.listBalanceUsers (#id bal) of
[] =>
| (user :: users) =>
- %><a href="user?id=<% #id user %>"><% Web.html (#name user) %></a><%
+ %><a href="money?hist=<% #id user %>"><% Web.html (#name user) %></a><%
foreach user in users do
- %>, <a href="user?id=<% # id user %>"><% Web.html (#name user) %></a><%
+ %>, <a href="money?hist=<% # id user %>"><% Web.html (#name user) %></a><%
end
end %></td> </tr>
<% end %>
| row => Init.rowError ("name+charge", row)
fun listChargesWithNames trn =
- C.map (getDb ()) mkChargeRow' ($`SELECT name, trn, usr, amount, app FROM Charge, WebUser
+ C.map (getDb ()) mkChargeRow' ($`SELECT name, trn, usr, amount FROM Charge, WebUser
WHERE trn = ^(C.intToSql trn)
AND usr = id
ORDER BY name`)