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

chore(profile): show examiners in profile data, towards #2347

Browse Source
This commit is contained in:
Steffen Jost 2025-02-24 17:10:54 +01:00
parent bc63324ddf
commit 088587549d
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Handler/Utils/Table/Cells.hs
View File

@ -401,17 +401,15 @@ examOccurrenceCell Entity{entityVal = ExamOccurrence{..}} =
examCell :: IsDBTable m a => Course -> Exam -> DBCell m a 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 where
link = CExamR courseTerm courseSchool courseShorthand examName EShowR link = CExamR courseTerm courseSchool courseShorthand examName EShowR
name = citext2widget examName name = citext2widget examName
desc = case examDescription of
Nothing -> mempty examOccurrenceCell :: IsDBTable m a => Entity ExamOccurrence -> DBCell m a
(Just descr) -> cell [whamlet| examOccurrenceCell Entity{entityVal = ExamOccurrence{..}} =
$newline never wgtCell [whamlet|#{examOccurrenceName}:^{formatTimeRangeW SelFormatDateTime examOccurrenceStart examOccurrenceEnd}|]
<div>
^{modal "Beschreibung" (Right $ toWidget descr)}
|]
-- also see Handler.Utils.Widgets.companyWidget -- also see Handler.Utils.Widgets.companyWidget
companyCell :: IsDBTable m a => CompanyShorthand -> CompanyName -> Bool -> DBCell m a companyCell :: IsDBTable m a => CompanyShorthand -> CompanyName -> Bool -> DBCell m a