Financial audit mode for anyone

diff --git a/money.mlt b/money.mlt
index 3c504da..737d4b3 100644 (file)
--- a/money.mlt
+++ b/money.mlt
@@ -327,13 +327,13 @@ end %>
 <% if showNormal then %>
 
 <h3>Your balance: $<% #amount (Balance.lookupBalance (#bal (Init.getUser ()))) %></h3>
-<% if Group.inGroupName "money" then %><h3>Sum of all active balances: $<% Balance.sumOwnedBalances () %></h3><% end %>
+<% if (iff Group.inGroupName "money" then $"lookback" = "" else $"audit" <> "") then %><h3>Sum of all active balances: $<% Balance.sumOwnedBalances () %></h3><% end %>
 
 <a href="money?cmd=list">List all transactions</a><br>
 <a href="money?cmd=bals">List active balances</a><br>
 <a href="money?cmd=deadbals">List retired balances</a><br>
 
-<% if Group.inGroupName "money" and $"lookback" = "" then %>
+<% if (Group.inGroupName "money" and $"lookback" = "") or $"audit" <> "" then %>
 
 <a href="?lookback=20">Switch to regular member view</a><br>
 
@@ -359,8 +359,9 @@ end %>
 <% end %>
 </table>
 
-<% else
-   val lookback = case $"lookback" of "" => 20 | lb => Web.stoi lb;
+<% else %>
+<a href="?audit=1">Switch to audit view</a><br>
+<% val lookback = case $"lookback" of "" => 20 | lb => Web.stoi lb;
    @payment [] %>
 
 <h3>Your recent account activity</h3>