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

fix(icons): fix some botched icon definitions

Browse Source
This commit is contained in:
Steffen Jost 2024-12-02 17:53:40 +01:00
parent 44a60bcef6
commit 7f5651466d
2 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
frontend/src/icons.scss
View File

@ -34,7 +34,7 @@ $icons: new,
file-upload, file-upload,
file-zip, file-zip,
file-csv, file-csv,
file-circle-minus, file-missing,
sft-question, sft-question,
sft-hint, sft-hint,
sft-solution, sft-solution,
@ -100,7 +100,8 @@ $icons: new,
user-edit, user-edit,
placeholder, placeholder,
glasses, glasses,
id-badge, user-badge,
user-unknown,
loading; loading;

22
src/Handler/School/DayTasks.hs
View File

@ -560,12 +560,12 @@ mkDailyTable isAdmin ssh nd dcrs = getDayTutorials ssh (nd,nd) >>= \case
-- , ("check-fail" , SortColumn $ queryParticipant >>> (\pid -> pid E.^. TutorialParticipantId `E.in_` E.vals (maybeEmpty dcrs $ dcrResults >>> Map.keys))) -- , ("check-fail" , SortColumn $ queryParticipant >>> (\pid -> pid E.^. TutorialParticipantId `E.in_` E.vals (maybeEmpty dcrs $ dcrResults >>> Map.keys)))
, let dcrsLevels = maybeEmpty dcrs $ dcrSeverityGroups . dcrResults in , let dcrsLevels = maybeEmpty dcrs $ dcrSeverityGroups . dcrResults in
("check-fail" , SortColumn $ queryParticipant >>> (\((E.^. TutorialParticipantId) -> pid) -> E.case_ ("check-fail" , SortColumn $ queryParticipant >>> (\((E.^. TutorialParticipantId) -> pid) -> E.case_
[ E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _1)) E.then_ (E.val 1) [ E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _1)) E.then_ (E.val 1)
, E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _2)) E.then_ (E.val 2) , E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _2)) E.then_ (E.val 2)
, E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _3)) E.then_ (E.val 3) , E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _3)) E.then_ (E.val 3)
, E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _4)) E.then_ (E.val 4) , E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _4)) E.then_ (E.val 4)
, E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _5)) E.then_ (E.val 5) , E.when_ (pid `E.in_` E.vals (dcrsLevels ^. _5)) E.then_ (E.val 5)
](E.else_ E.val (99 :: Int64)) ] (E.else_ E.val (99 :: Int64))
)) ))
] ]
dbtFilter = Map.fromList dbtFilter = Map.fromList
@ -734,11 +734,11 @@ dcr2widget _ _ = text2widget "Kein Pr
dcrSeverity :: DayCheckResult -> Int dcrSeverity :: DayCheckResult -> Int
dcrSeverity DayCheckResult{dcAvsKnown=False} = 1 dcrSeverity DayCheckResult{dcAvsKnown=False} = 1
dcrSeverity DayCheckResult{dcApronAccess=False} = 2 dcrSeverity DayCheckResult{dcApronAccess=False} = 2
dcrSeverity DayCheckResult{dcBookingFirmOk=False} = 3 dcrSeverity DayCheckResult{dcBookingFirmOk=False} = 3
dcrSeverity DayCheckResult{dcEyeFitsPermit=Nothing} = 4 dcrSeverity DayCheckResult{dcEyeFitsPermit=Nothing} = 4
dcrSeverity DayCheckResult{dcEyeFitsPermit=Just False} = 5 dcrSeverity DayCheckResult{dcEyeFitsPermit=Just False} = 5
dcrSeverity _ = 99 dcrSeverity _ = 99
dcrSeverityGroups :: Map TutorialParticipantId DayCheckResult -> (Set TutorialParticipantId,Set TutorialParticipantId,Set TutorialParticipantId,Set TutorialParticipantId,Set TutorialParticipantId) dcrSeverityGroups :: Map TutorialParticipantId DayCheckResult -> (Set TutorialParticipantId,Set TutorialParticipantId,Set TutorialParticipantId,Set TutorialParticipantId,Set TutorialParticipantId)