From 4b6ad55cd8cb2c2eabe97e1656248349ce541171 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20S=C3=BC=C3=9F?= <dominik.suess@outlook.at>
Date: Fri, 21 Oct 2016 18:13:22 +0200
Subject: [PATCH] Made backlinking work again

---
 hledger-web/Handler/JournalR.hs  | 5 ++---
 hledger-web/Handler/RegisterR.hs | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/hledger-web/Handler/JournalR.hs b/hledger-web/Handler/JournalR.hs
index e155481d0..300e577c7 100644
--- a/hledger-web/Handler/JournalR.hs
+++ b/hledger-web/Handler/JournalR.hs
@@ -62,14 +62,14 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
 -- .#{datetransition}
    itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
    itemAsHtml VD{..} (n, _, _, _, (torig, _, split, _, amt, _)) = [hamlet|
-<tr .title>
+<tr .title #transaction-#{tindex torig}>
  <td .date>#{date}
  <td .description colspan=2>#{textElideRight 60 desc}
  <td .amount style="text-align:right;">
   $if showamt
    \#{mixedAmountAsHtml amt}
 $forall p' <- tpostings torig
- <tr .item.#{evenodd}.posting title="#{show torig}">
+ <tr .item .posting title="#{show torig}">
   <td .nonhead>
   <td .nonhead>
   <td .nonhead>
@@ -79,7 +79,6 @@ $forall p' <- tpostings torig
 |]
      where
        acctlink a = (RegisterR, [("q", T.pack $ accountQuery a)])
-       evenodd = if even n then "even" else "odd" :: String
        -- datetransition | newm = "newmonth"
        --                | newd = "newday"
        --                | otherwise = "" :: String
diff --git a/hledger-web/Handler/RegisterR.hs b/hledger-web/Handler/RegisterR.hs
index f868ee1bb..3ae2079d9 100644
--- a/hledger-web/Handler/RegisterR.hs
+++ b/hledger-web/Handler/RegisterR.hs
@@ -80,7 +80,7 @@ registerItemsHtml _ vd (balancelabel,items) = [hamlet|
 
 <tr ##{tindex torig} .item.#{evenodd}.#{firstposting}.#{datetransition} title="#{show torig}" style="vertical-align:top;">
  <td .date>
-  <a href="@{JournalR}##{tindex torig}">#{date}
+  <a href="@{JournalR}#transaction-#{tindex torig}">#{date}
  <td .description title="#{show torig}">#{textElideRight 30 desc}
  <td .account>#{elideRight 40 acct}
  <td .amount style="text-align:right; white-space:nowrap;">