slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: add an all accounts link to sidebar

Browse Source
This commit is contained in:
Simon Michael 2011-06-14 20:22:20 +00:00
parent f825db1c89
commit b0279cb2df
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger-web/.hledger/web/templates/balancereport.hamlet
View File

@ -1,11 +1,10 @@
<div#accountsheading <div#accountsheading
accounts accounts
$if filtering
\ #
<span.showall
<a href=@{here}>show all
<table.balancereport> <table.balancereport>
<tr.item :allaccts:.inacct
<td.account colspan=3><a href=@{here}>all accounts
$forall i <- items $forall i <- items
^{itemAsHtml vd i} ^{itemAsHtml vd i}

2
hledger-web/Handlers.hs
View File

@ -134,8 +134,8 @@ balanceReportAsHtml _ vd@VD{here=here,q=q,m=m,qopts=qopts,j=j} (items,total) = $
where where
l = journalToLedger nullfilterspec j l = journalToLedger nullfilterspec j
numpostingsinacct = length . apostings . ledgerAccount l numpostingsinacct = length . apostings . ledgerAccount l
filtering = not $ null q
inacctmatcher = inAccountMatcher qopts inacctmatcher = inAccountMatcher qopts
allaccts = isNothing inacctmatcher
itemAsHtml :: ViewData -> BalanceReportItem -> Hamlet AppRoute itemAsHtml :: ViewData -> BalanceReportItem -> Hamlet AppRoute
itemAsHtml VD{here=here,q=q} (acct, adisplay, aindent, abal) = $(Settings.hamletFile "balancereportitem") itemAsHtml VD{here=here,q=q} (acct, adisplay, aindent, abal) = $(Settings.hamletFile "balancereportitem")
where where