From 0311595d3bce4d25b85a1f2d26060dd3622c5568 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 21 Sep 2011 22:42:15 +0000
Subject: [PATCH] web: editform title

---
 hledger-web/Hledger/Web/Handlers.hs | 2 ++
 1 file changed, 2 insertions(+)

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