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

web: hide filter fields until they work right

Browse Source
This commit is contained in:
Simon Michael 2009-12-07 15:53:26 +00:00
parent b3aedda275
commit 7e4de1df00
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Commands/Web.hs
View File

@ -198,7 +198,7 @@ navbar env =
<div id="navbar"> <div id="navbar">
<a href="http://hledger.org" id="hledgerorglink">hledger.org</a> <a href="http://hledger.org" id="hledgerorglink">hledger.org</a>
<% navlinks env %> <% navlinks env %>
<% searchform env %> -- <% searchform env %>
<a href="http://hledger.org/README.html" id="helplink">help</a> <a href="http://hledger.org/README.html" id="helplink">help</a>
</div> </div>
@ -236,7 +236,8 @@ addform env = do
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
<div id="addform"> <div>
<div id="addform">
<form action="" method="POST"> <form action="" method="POST">
<table border="0"> <table border="0">
<tr> <tr>
@ -251,6 +252,8 @@ addform env = do
</table> </table>
</form> </form>
</div> </div>
<br clear="all" />
</div>
transactionfields :: Int -> Hack.Env -> HSP XML transactionfields :: Int -> Hack.Env -> HSP XML
transactionfields n env = do transactionfields n env = do