From 0609a8e3c7428e34af349b8d40291f2abe40b299 Mon Sep 17 00:00:00 2001
From: adamch <adamch>
Date: Sun, 7 Oct 2007 12:52:19 +0000
Subject: [PATCH] Financial audit mode for anyone

---
 money.mlt | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/money.mlt b/money.mlt
index 3c504da..737d4b3 100644
--- 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>
-- 
2.20.1