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

web: editform title

Browse Source
This commit is contained in:
Simon Michael 2011-09-21 22:42:15 +00:00
parent de502e732b
commit 0311595d3b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -778,6 +778,7 @@ addform vd@VD{..} = [$hamlet|
editform :: ViewData -> HtmlUrl AppRoute editform :: ViewData -> HtmlUrl AppRoute
editform VD{..} = [$hamlet| editform VD{..} = [$hamlet|
<form#editform method=POST style=display:none; <form#editform method=POST style=display:none;
<h2#contenttitle>#{title}
<table.form <table.form
$if manyfiles $if manyfiles
<tr <tr
@ -801,6 +802,7 @@ editform VD{..} = [$hamlet|
<a href="#" onclick="return editformToggle(event)">cancel <a href="#" onclick="return editformToggle(event)">cancel
|] |]
where where
title = "Edit journal" :: String
manyfiles = (length $ files j) > 1 manyfiles = (length $ files j) > 1
formathelp = helplink "file-format" "file format help" formathelp = helplink "file-format" "file format help"