diff --git a/hledger-web/.hledger/web/templates/balancereport.hamlet b/hledger-web/.hledger/web/templates/balancereport.hamlet
index 80cbbbd6d..803eb40da 100644
--- a/hledger-web/.hledger/web/templates/balancereport.hamlet
+++ b/hledger-web/.hledger/web/templates/balancereport.hamlet
@@ -1,11 +1,10 @@
 <div#accountsheading
  accounts
- $if filtering
-  \ #
-  <span.showall
-   <a href=@{here}>show all
 
 <table.balancereport>
+ <tr.item :allaccts:.inacct
+  <td.account colspan=3><a href=@{here}>all accounts
+
  $forall i <- items
   ^{itemAsHtml vd i}
 
diff --git a/hledger-web/Handlers.hs b/hledger-web/Handlers.hs
index 603c2f9dc..dad4cd6a6 100644
--- a/hledger-web/Handlers.hs
+++ b/hledger-web/Handlers.hs
@@ -134,8 +134,8 @@ balanceReportAsHtml _ vd@VD{here=here,q=q,m=m,qopts=qopts,j=j} (items,total) = $
  where
    l = journalToLedger nullfilterspec j
    numpostingsinacct = length . apostings . ledgerAccount l
-   filtering = not $ null q
    inacctmatcher = inAccountMatcher qopts
+   allaccts = isNothing inacctmatcher
    itemAsHtml :: ViewData -> BalanceReportItem -> Hamlet AppRoute
    itemAsHtml VD{here=here,q=q} (acct, adisplay, aindent, abal) = $(Settings.hamletFile "balancereportitem")
      where