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

allow-filtering-on-accounts-for-web-queries

Browse Source
This commit is contained in:
Trygve Laugstøl 2011-05-31 14:41:55 +00:00
parent 7c6c90f205
commit 635b6c60e7
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger-web/Handlers.hs
View File

@ -106,8 +106,10 @@ postRegisterOnlyR = handlePost
-- specifies json, returns the chart of accounts as json. -- specifies json, returns the chart of accounts as json.
getAccountsOnlyR :: Handler RepHtmlJson getAccountsOnlyR :: Handler RepHtmlJson
getAccountsOnlyR = do getAccountsOnlyR = do
vd@VD{opts=opts,fspec=fspec,j=j} <- getViewData vd@VD{opts=opts,fspec=fspec,j=j,a=a} <- getViewData
let json = jsonMap [("accounts", toJSON $ journalAccountNames j)] let accountNames = journalAccountNames j :: [AccountName]
accountNames' = filter (matchpats [a]) $ accountNames
json = jsonMap [("accounts", toJSON $ accountNames')]
html = do html = do
setTitle "hledger-web accounts" setTitle "hledger-web accounts"
addHamlet $ balanceReportAsHtml opts vd $ balanceReport opts fspec j addHamlet $ balanceReportAsHtml opts vd $ balanceReport opts fspec j
@ -116,8 +118,10 @@ getAccountsOnlyR = do
-- | Return the chart of accounts as json, without needing a special Accept header. -- | Return the chart of accounts as json, without needing a special Accept header.
getAccountsJsonR :: Handler RepJson getAccountsJsonR :: Handler RepJson
getAccountsJsonR = do getAccountsJsonR = do
VD{j=j} <- getViewData VD{a=a,j=j} <- getViewData
jsonToRepJson $ jsonMap [("accounts", toJSON $ journalAccountNames j)] let accountNames = journalAccountNames j :: [AccountName]
accountNames' = filter (matchpats [a]) $ accountNames
jsonToRepJson $ jsonMap [("accounts", toJSON $ accountNames')]
-- helpers -- helpers