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

feat: generated columns tooltip

Browse Source
This commit is contained in:
Gregor Kleen 2020-08-27 14:55:32 +02:00
parent 6abe5c8b3f
commit 2c4080d0e0
3 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
messages/uniworx/de-de-formal.msg
View File

@ -2026,6 +2026,7 @@ CsvColumnApplicationsRating: Bewertung der Bewerbung; "1.0", "1.3", "1.7", ...,
CsvColumnApplicationsComment: Kommentar zur Bewerbung; je nach Kurs-Einstellungen entweder nur als Notiz für die Kursverwalter oder Feedback für den Bewerber
ApplicationGeneratedColumns: Stammdaten
ApplicationGeneratedColumnsTip: Auf diese Daten haben die Bewerber keinen Einfluss
ApplicationUserColumns: Bewerbung
ApplicationRatingColumns: Bewertung

1
messages/uniworx/en-eu.msg
View File

@ -2025,6 +2025,7 @@ CsvColumnApplicationsRating: Application grading; Any number grade ("1.0", "1.3"
CsvColumnApplicationsComment: Application comment; depending on course settings this might purely be a note for course administrators or be feedback for the applicant
ApplicationGeneratedColumns: Master data
ApplicationGeneratedColumnsTip: Applicants cannot modify these data
ApplicationUserColumns: Application
ApplicationRatingColumns: Rating

3
src/Handler/Course/Application/List.hs
View File

@ -281,7 +281,7 @@ postCApplicationsR tid ssh csh = do
dbtColonnade :: Cornice Sortable ('Cap 'Base) _ _
dbtColonnade = mconcat
[ cap (Sortable Nothing $ i18nCell MsgApplicationGeneratedColumns) $ mconcat
[ cap (Sortable Nothing generatedColumnsHeader) $ mconcat
[ sortable (Just "participant") (i18nCell MsgCourseApplicationIsParticipant) $ bool mempty (cell $ toWidget iconOK) . view resultIsParticipant
, emptyOpticColonnade (resultAllocation . _entityVal) $ \l -> anchorColonnade (views l allocationLink) $ colAllocationShorthand (l . _allocationShorthand)
, anchorColonnadeM (views (resultCourseApplication . _entityKey) applicationLink) $ colApplicationId (resultCourseApplication . _entityKey)
@ -300,6 +300,7 @@ postCApplicationsR tid ssh csh = do
, colApplicationRatingComment (resultCourseApplication . _entityVal . _courseApplicationRatingComment)
]
]
where generatedColumnsHeader = cell $ i18n MsgApplicationGeneratedColumns <> (messageTooltip =<< messageI Info MsgApplicationGeneratedColumnsTip)
dbtSorting = mconcat
[ singletonMap "participant" . SortColumn $ view queryIsParticipant