fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correctionsTable features links everywhere now

Browse Source
This commit is contained in:
SJost 2018-06-22 23:08:09 +02:00
parent b2a97d926d
commit 4d3ad78b53
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Handler/Corrections.hs
View File

@ -65,13 +65,19 @@ colTerm = sortable (Just "term") (i18nCell MsgTerm)
colCourse :: Colonnade Sortable CorrectionTableData (Cell UniWorX) colCourse :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
colCourse = sortable (Just "course") (i18nCell MsgCourse) colCourse = sortable (Just "course") (i18nCell MsgCourse)
$ \DBRow{ dbrOutput=(_, _, course) } -> $ \DBRow{ dbrOutput=(_, _, course) } -> cell $
textCell $ E.unValue $ course ^. _2 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 :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
colSheet = sortable (Just "sheet") (i18nCell MsgSheet) colSheet = sortable (Just "sheet") (i18nCell MsgSheet)
$ \DBRow{ dbrOutput=(_, sheet, _) } -> $ \DBRow{ dbrOutput=(_, sheet, course) } -> cell $
textCell $ sheetName $ entityVal sheet 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 :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
colCorrector = sortable (Just "corrector") (i18nCell MsgCorrector) colCorrector = sortable (Just "corrector") (i18nCell MsgCorrector)