web: fix journal edit form

hledger-web/Hledger/Web/Handlers.hs

@@ -211,9 +211,8 @@ accountsReportAsHtml _ vd@VD{..} (items',total) =
       
      <a href=@{JournalEntriesR} title="Show journal entries">entries</a>
      &nbsp;
-     <a href=@{JournalEditR} title="Edit the journal">edit
-     &nbsp;
-     (<a#editformlink href onclick="return editformToggle(event)" title="Edit the journal">edit</a>)
+     <a#editformlink href="#" onclick="return editformToggle(event)" title="Edit the journal">
+      edit
 
   <tr
    <td colspan=3
@@ -439,15 +438,15 @@ mixedAmountAsHtml b = preEscapedString $ addclass $ intercalate "<br>" $ lines $
 postJournalR :: Handler RepPlain
 postJournalR = handlePost
 
+postJournalEntriesR :: Handler RepPlain
+postJournalEntriesR = handlePost
+
+postJournalEditR :: Handler RepPlain
+postJournalEditR = handlePost
+
 postRegisterR :: Handler RepPlain
 postRegisterR = handlePost
 
-postJournalOnlyR :: Handler RepPlain
-postJournalOnlyR = handlePost
-
-postRegisterOnlyR :: Handler RepPlain
-postRegisterOnlyR = handlePost
-
 -- | Handle a post from any of the edit forms.
 handlePost :: Handler RepPlain
 handlePost = do

hledger-web/routes

@@ -3,8 +3,8 @@
 /robots.txt      RobotsR         GET
 /                RootR           GET
 /journal         JournalR        GET POST
-/journal/entries JournalEntriesR GET
-/journal/edit    JournalEditR    GET
-/register        RegisterR       GET
+/journal/entries JournalEntriesR GET POST
+/journal/edit    JournalEditR    GET POST
+/register        RegisterR       GET POST
 /accounts        AccountsR       GET
 /api/accounts    AccountsJsonR   GET