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

web: more help links

Browse Source
This commit is contained in:
Simon Michael 2010-02-23 03:38:09 +00:00
parent 603ce7d64b
commit c1b88265d1
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Commands/Web.hs
View File

@ -232,11 +232,10 @@ searchform env = do
where u = dropWhile (=='/') $ Hack.Contrib.Request.path env
<form action="" id="searchform">
<% nbsp %>search for:<% nbsp %><input name="a" size="20" value=a
/><a href="http://hledger.org/MANUAL.html#filter-patterns">?</
a><% nbsp %><% nbsp %>in reporting period:<% nbsp %><input name="p" size="20" value=p
/><a href="http://hledger.org/MANUAL.html#period-expressions">?</
a>
<input type="submit" name="submit" value="filter" style="display:none" />
/><% help "filter-patterns"
%><% nbsp %><% nbsp %>in reporting period:<% nbsp %><input name="p" size="20" value=p
/><% help "period-expressions"
%><input type="submit" name="submit" value="filter" style="display:none" />
<% resetlink %>
</form>
@ -257,19 +256,26 @@ addform env = do
<table border="0">
<tr>
<td>
Date: <input size="15" name="date" value=date /><% nbsp %>
Date: <input size="15" name="date" value=date /><% help "dates" %><% nbsp %>
Description: <input size="35" name="desc" value=desc /><% nbsp %>
</td>
</tr>
<% transactionfields 1 env %>
<% transactionfields 2 env %>
<tr id="addbuttonrow"><td><input type="submit" value="add transaction" /></td></tr>
<tr id="addbuttonrow"><td><input type="submit" value="add transaction"
/><% help "file-format" %></td></tr>
</table>
</form>
</div>
<br clear="all" />
</div>
help :: String -> HSP XML
help topic = <a href=u>?</a>
where u = printf "http://hledger.org/MANUAL.html%s" l :: String
l | null topic = ""
| otherwise = '#':topic
transactionfields :: Int -> Hack.Env -> HSP XML
transactionfields n env = do
let inputs = Hack.Contrib.Request.inputs env