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

web: several tweaks

Browse Source
This commit is contained in:
Simon Michael 2009-09-23 23:36:37 +00:00
parent 70e33a5fdf
commit 40f61be1e3
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Commands/Web.hs
View File

@ -128,7 +128,7 @@ server opts args l =
get "/balance" $ command [] showBalanceReport -- String -> ReaderT Env (StateT Response IO) () -> State Loli ()
get "/register" $ command [] showRegisterReport
get "/histogram" $ command [] showHistogram
get "/ledger" $ ledgerpage [] l'' $ showLedgerTransactions opts' args'
get "/ledger" $ ledgerpage [] l'' (showLedgerTransactions opts' args')
post "/ledger" $ handleAddform l''
get "/env" $ getenv >>= (text . show)
get "/params" $ getenv >>= (text . show . Hack.Contrib.Request.params)
@ -211,10 +211,10 @@ navlinks _ = do
let addparams=(++(printf "?a=%s&p=%s" (urlEncode a) (urlEncode p)))
link s = <a href=(addparams s) class="navlink"><% s %></a>
<div id="navlinks">
<% link "ledger" %> |
<% link "balance" %> |
<% link "register" %> |
<% link "histogram" %> |
<% link "ledger" %>
<% link "histogram" %>
</div>
searchform :: Hack.Env -> HSP XML
@ -331,6 +331,8 @@ handleAddform l = do
handle :: Failing LedgerTransaction -> AppUnit
handle (Failure errs) = hsp errs addform
handle (Success t) = io (addTransaction l t >> reload l) >> (ledgerpage [msg] l (showLedgerTransactions [] [])) -- redirect (homeurl++"print") Nothing -- hsp [msg] addform
where msg = printf "\nAdded transaction:\n%s" (show t)
handle (Success t) = do
io $ addTransaction l t >> reload l
ledgerpage [msg] l (showLedgerTransactions [] [])
where msg = printf "Added transaction:\n%s" (show t)