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

web: show +subs link only when there are subaccounts

Browse Source
This commit is contained in:
Simon Michael 2011-06-27 13:28:21 +00:00
parent 3da58052ab
commit 73e5088cbe
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-web/.hledger/web/templates/balancereportitem.hamlet
View File

@ -3,6 +3,7 @@
#{indent} #{indent}
<a href="@?{acctquery}" title="Focus on this account">#{adisplay} <a href="@?{acctquery}" title="Focus on this account">#{adisplay}
<span.hoverlinks <span.hoverlinks
$if hassubs
&nbsp; &nbsp;
<a href="@?{acctsquery}" title="Focus on this account and sub-accounts">+subs <a href="@?{acctsquery}" title="Focus on this account and sub-accounts">+subs
<!-- <!--

1
hledger-web/Handlers.hs
View File

@ -143,6 +143,7 @@ balanceReportAsHtml _ vd@VD{here=here,m=m,q=q,qopts=qopts,j=j} (items',total) =
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
hassubs = not $ null $ ledgerSubAccounts l $ ledgerAccount l acct
numpostings = length $ apostings $ ledgerAccount l acct numpostings = length $ apostings $ ledgerAccount l acct
depthclass = "depth"++show aindent depthclass = "depth"++show aindent
inacctclass = case inacctmatcher of inacctclass = case inacctmatcher of