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

web: fix some invalid html

Browse Source
This commit is contained in:
Simon Michael 2011-09-10 19:52:35 +00:00
parent 23200cdd87
commit 27e4fec943
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
hledger-web/Hledger/Web/Handlers.hs
View File

@ -201,7 +201,7 @@ accountsReportAsHtml _ vd@VD{..} (items',total) =
<tr <tr
<td.add colspan=3 <td.add colspan=3
<br> <br>
<a#addformlink href onclick="return addformToggle(event)" title="Add a new transaction to the journal">Add a transaction.. <a#addformlink href="#" onclick="return addformToggle(event)" title="Add a new transaction to the journal">Add a transaction..
<tr.item :allaccts:.inacct <tr.item :allaccts:.inacct
<td.journal colspan=3 <td.journal colspan=3
@ -209,7 +209,7 @@ accountsReportAsHtml _ vd@VD{..} (items',total) =
<a href=@{JournalR} title="Show all transactions in journal format">Journal <a href=@{JournalR} title="Show all transactions in journal format">Journal
<span.hoverlinks <span.hoverlinks
&nbsp; &nbsp;
<a href=@{JournalEntriesR} title="Show journal entries">entries</a> <a href=@{JournalEntriesR} title="Show journal entries">entries
&nbsp; &nbsp;
<a#editformlink href="#" onclick="return editformToggle(event)" title="Edit the journal"> <a#editformlink href="#" onclick="return editformToggle(event)" title="Edit the journal">
edit edit
@ -223,10 +223,11 @@ accountsReportAsHtml _ vd@VD{..} (items',total) =
^{itemAsHtml vd i} ^{itemAsHtml vd i}
<tr.totalrule> <tr.totalrule>
<td colspan=2> <td colspan=3>
<tr> <tr>
<td> <td>
<td.balance align=right>#{mixedAmountAsHtml total} <td.balance align=right>#{mixedAmountAsHtml total}
<td>
|] |]
where where
l = journalToLedger nullfilterspec j l = journalToLedger nullfilterspec j
@ -619,10 +620,10 @@ navlink VD{..} s dest title = [$hamlet|
-- | Links to the various journal editing forms. -- | Links to the various journal editing forms.
editlinks :: Hamlet AppRoute editlinks :: Hamlet AppRoute
editlinks = [$hamlet| editlinks = [$hamlet|
<a#editformlink href onclick="return editformToggle(event)" title="Toggle journal edit form">edit <a#editformlink href="#" onclick="return editformToggle(event)" title="Toggle journal edit form">edit
\ | # \ | #
<a#addformlink href onclick="return addformToggle(event)" title="Toggle transaction add form">add <a#addformlink href="#" onclick="return addformToggle(event)" title="Toggle transaction add form">add
<a#importformlink href onclick="return importformToggle(event)" style="display:none;">import transactions <a#importformlink href="#" onclick="return importformToggle(event)" style="display:none;">import transactions
|] |]
-- | Link to a topic in the manual. -- | Link to a topic in the manual.
@ -727,7 +728,7 @@ addform vd@VD{..} = [$hamlet|
$if manyfiles $if manyfiles
\ to: ^{journalselect $ files j} \ to: ^{journalselect $ files j}
\ or # \ or #
<a href onclick="return addformToggle(event)">cancel <a href="#" onclick="return addformToggle(event)">cancel
|] |]
where where
title = "Add transaction" :: String title = "Add transaction" :: String
@ -795,11 +796,12 @@ editform VD{..} = [$hamlet|
<td <td
<span.help>^{formathelp} <span.help>^{formathelp}
<td align=right <td align=right
<span.help Are you sure ? This will overwrite the journal. # <span.help
Are you sure ? This will overwrite the journal. #
<input type=hidden name=action value=edit <input type=hidden name=action value=edit
<input type=submit name=submit value="save journal" <input type=submit name=submit value="save journal"
\ or # \ or #
<a href onclick="return editformToggle(event)">cancel <a href="#" onclick="return editformToggle(event)">cancel
|] |]
where where
manyfiles = (length $ files j) > 1 manyfiles = (length $ files j) > 1
@ -816,7 +818,7 @@ importform = [$hamlet|
<input type=hidden name=action value=import <input type=hidden name=action value=import
<input type=submit name=submit value="import from file" <input type=submit name=submit value="import from file"
\ or # \ or #
<a href onclick="return importformToggle(event)" cancel <a href="#" onclick="return importformToggle(event)" cancel
|] |]
journalselect :: [(FilePath,String)] -> Hamlet AppRoute journalselect :: [(FilePath,String)] -> Hamlet AppRoute