From 4d3ad78b53ed76fc7f216f8e29a1dfb1e92f473f Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Fri, 22 Jun 2018 23:08:09 +0200
Subject: [PATCH] correctionsTable features links everywhere now

---
 src/Handler/Corrections.hs | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 458954156..7aa891e36 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -65,13 +65,19 @@ colTerm = sortable (Just "term") (i18nCell MsgTerm)
 
 colCourse :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
 colCourse = sortable (Just "course") (i18nCell MsgCourse)
-        $ \DBRow{ dbrOutput=(_, _, course) } ->
-          textCell $ E.unValue $ course ^. _2
+        $ \DBRow{ dbrOutput=(_, _, course) } -> cell $
+          let tid = E.unValue $ course ^. _3
+              csh = E.unValue $ course ^. _2
+          in [whamlet|<a href=@{CourseR tid csh CShowR}>#{display csh}|]
 
 colSheet :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
 colSheet = sortable (Just "sheet") (i18nCell MsgSheet)
-        $ \DBRow{ dbrOutput=(_, sheet, _) } ->
-          textCell $ sheetName $ entityVal sheet
+        $ \DBRow{ dbrOutput=(_, sheet, course) } -> cell $
+          let tid = E.unValue $ course ^. _3
+              csh = E.unValue $ course ^. _2
+              shn = sheetName $ entityVal sheet
+          in [whamlet|<a href=@{CSheetR tid csh shn SShowR}>#{display shn}|]
+          -- textCell $ sheetName $ entityVal sheet
 
 colCorrector :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
 colCorrector = sortable (Just "corrector") (i18nCell MsgCorrector)