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

web: pre-fill add form with today's date

Browse Source
This commit is contained in:
Simon Michael 2010-02-26 00:52:06 +00:00
parent 75491b027e
commit 1a910bfaba
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Commands/Web.hs
View File

@ -240,12 +240,13 @@ searchform env = do
addform :: Hack.Env -> HSP XML addform :: Hack.Env -> HSP XML
addform env = do addform env = do
today <- io $ liftM showDate $ getCurrentDay
let inputs = Hack.Contrib.Request.inputs env let inputs = Hack.Contrib.Request.inputs env
#if __GLASGOW_HASKELL__ <= 610 #if __GLASGOW_HASKELL__ <= 610
date = decodeString $ fromMaybe "" $ lookup "date" inputs date = decodeString $ fromMaybe today $ lookup "date" inputs
desc = decodeString $ fromMaybe "" $ lookup "desc" inputs desc = decodeString $ fromMaybe "" $ lookup "desc" inputs
#else #else
date = fromMaybe "" $ lookup "date" inputs date = fromMaybe today $ lookup "date" inputs
desc = fromMaybe "" $ lookup "desc" inputs desc = fromMaybe "" $ lookup "desc" inputs
#endif #endif
<div> <div>