diff --git a/src/Handler/Utils/Table/Pagination.hs b/src/Handler/Utils/Table/Pagination.hs index 6c59c36ca..ba7c29687 100644 --- a/src/Handler/Utils/Table/Pagination.hs +++ b/src/Handler/Utils/Table/Pagination.hs @@ -851,12 +851,13 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db columnCount :: Int64 columnCount = olength64 $ getColonnade dbtColonnade - wRows <- forM rows $ \row' -> let + wRows <- forM (zip [0..length rows] rows) $ \(cid, row') -> let Course{..} = row' ^. c . _entityVal lecturers = toListOf l row' courseLecturers = intercalate ", " $ userSurname . entityVal <$> lecturers isRegistered = row' ^. r courseSchoolName = unSchoolKey courseSchool + courseId = tshow cid in return $(widgetFile "table/course/course-teaser") return $(widgetFile "table/course/colonnade") diff --git a/templates/table/course/course-teaser.hamlet b/templates/table/course/course-teaser.hamlet index c8f648542..08ec2cf29 100644 --- a/templates/table/course/course-teaser.hamlet +++ b/templates/table/course/course-teaser.hamlet @@ -1,4 +1,4 @@ -