Merge branch 'master' into 740-labels

This commit is contained in:
Sarah Vaupel 2022-02-01 18:05:22 +01:00
commit 9013d8f0b5

View File

@ -1023,7 +1023,7 @@ postCorrectionsR = do
, colAssigned
, colRating
, colRated
] -- Continue here
]
filterUI = Just $ mconcat
[ filterUIPseudonym
, filterUICourse courseOptions
@ -1046,7 +1046,7 @@ postCorrectionsR = do
psValidator = def
& restrictCorrector
& restrictAnonymous
& defaultSorting [SortDescBy "ratingtime", SortAscBy "assignedtime" ]
& defaultSorting [SortAscBy "assignedtime", SortDescBy "ratingtime"]
& defaultFilter (singletonMap "israted" [toPathPiece False])
csvSettings = Just CorrectionTableCsvSettings