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

web: period arg wasn't being preserved

Browse Source
This commit is contained in:
Simon Michael 2009-05-24 21:46:15 +00:00
parent d35792bf3f
commit 0041a3b27a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Commands/Web.hs
View File

@ -64,7 +64,7 @@ webHandlers opts args l t = msum
] ]
where where
view f = withDataFn rqdata $ render f view f = withDataFn rqdata $ render f
render f (a,p) = layout (a, p) $ f opts' args' l' render f (a,p) = layout (a,p) $ f opts' args' l'
where where
opts' = opts ++ [Period p] opts' = opts ++ [Period p]
args' = args ++ (map urlDecode $ words a) args' = args ++ (map urlDecode $ words a)
@ -106,7 +106,9 @@ maintemplate (a,p) r = printf (unlines
-- another way to get them -- another way to get them
-- a = fromMaybe "" $ queryValue "a" r -- a = fromMaybe "" $ queryValue "a" r
-- p = fromMaybe "" $ queryValue "p" r -- p = fromMaybe "" $ queryValue "p" r
q' = intercalate "&" $ if null a then [] else [(("a="++).urlEncode) a] ++ if null p then [] else [(("p="++).urlEncode) p] q' = intercalate "&" $
(if null a then [] else [(("a="++).urlEncode) a]) ++
(if null p then [] else [(("p="++).urlEncode) p])
q = if null q' then "" else '?':q' q = if null q' then "" else '?':q'
resetlink | null a && null p = "" resetlink | null a && null p = ""
| otherwise = printf "&nbsp; <a href=%s>reset</a>" u | otherwise = printf "&nbsp; <a href=%s>reset</a>" u