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

web: support full date syntax in add form

Browse Source
This commit is contained in:
Simon Michael 2009-11-19 20:43:06 +00:00
parent 37f08a35c0
commit 0ddd3ca05a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Commands/Web.hs
View File

@ -275,10 +275,11 @@ transactionfields n env = do
handleAddform :: Ledger -> AppUnit handleAddform :: Ledger -> AppUnit
handleAddform l = do handleAddform l = do
env <- getenv env <- getenv
handle $ validate env d <- io getCurrentDay
handle $ validate env d
where where
validate :: Hack.Env -> Failing LedgerTransaction validate :: Hack.Env -> Day -> Failing LedgerTransaction
validate env = validate env today =
let inputs = Hack.Contrib.Request.inputs env let inputs = Hack.Contrib.Request.inputs env
date = fromMaybe "" $ lookup "date" inputs date = fromMaybe "" $ lookup "date" inputs
desc = fromMaybe "" $ lookup "desc" inputs desc = fromMaybe "" $ lookup "desc" inputs
@ -299,7 +300,7 @@ handleAddform l = do
validateAmt2 "" = ["missing amount 2"] validateAmt2 "" = ["missing amount 2"]
validateAmt2 s = [] validateAmt2 s = []
t = LedgerTransaction { t = LedgerTransaction {
ltdate = parsedate date ltdate = parsedate $ fixSmartDateStr today date
,lteffectivedate=Nothing ,lteffectivedate=Nothing
,ltstatus=False ,ltstatus=False
,ltcode="" ,ltcode=""