From 088587549d79bafda762ea8325f34643b5b86649 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Mon, 24 Feb 2025 17:10:54 +0100 Subject: [PATCH] chore(profile): show examiners in profile data, towards #2347 --- src/Handler/Utils/Table/Cells.hs | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/src/Handler/Utils/Table/Cells.hs b/src/Handler/Utils/Table/Cells.hs index f49bffbe5..f8ecbbb53 100644 --- a/src/Handler/Utils/Table/Cells.hs +++ b/src/Handler/Utils/Table/Cells.hs @@ -401,17 +401,15 @@ examOccurrenceCell Entity{entityVal = ExamOccurrence{..}} = examCell :: IsDBTable m a => Course -> Exam -> DBCell m a -examCell Course{..} Exam{..} = anchorCell link name `mappend` desc +examCell Course{..} Exam{..} = anchorCell link name <> addModalDescriptionCell examDescription where link = CExamR courseTerm courseSchool courseShorthand examName EShowR name = citext2widget examName - desc = case examDescription of - Nothing -> mempty - (Just descr) -> cell [whamlet| - $newline never -
- ^{modal "Beschreibung" (Right $ toWidget descr)} - |] + +examOccurrenceCell :: IsDBTable m a => Entity ExamOccurrence -> DBCell m a +examOccurrenceCell Entity{entityVal = ExamOccurrence{..}} = + wgtCell [whamlet|#{examOccurrenceName}:^{formatTimeRangeW SelFormatDateTime examOccurrenceStart examOccurrenceEnd}|] + -- also see Handler.Utils.Widgets.companyWidget companyCell :: IsDBTable m a => CompanyShorthand -> CompanyName -> Bool -> DBCell m a