diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 81f69adc1..9a55c4943 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -59,7 +59,7 @@ colCShortDescr = sortable (Just "cshort") (i18nCell MsgCourseShort) [whamlet| $newline never
- ^{modal "Beschreibung anzeigen" (Right $ toWidget descr)} + ^{modal "Beschreibung" (Right $ toWidget descr)} |] ) diff --git a/src/Handler/Utils/Table/Cells.hs b/src/Handler/Utils/Table/Cells.hs index dd95183de..a164e9f96 100644 --- a/src/Handler/Utils/Table/Cells.hs +++ b/src/Handler/Utils/Table/Cells.hs @@ -82,7 +82,7 @@ courseCell Course{..} = anchorCell link name `mappend` desc (Just descr) -> cell [whamlet| $newline never
- ^{modal "Beschreibung anzeigen" (Right $ toWidget descr)} + ^{modal "Beschreibung" (Right $ toWidget descr)} |] sheetCell :: IsDBTable m a => CourseLink -> SheetName -> DBCell m a