From 9ee476736ccd361559edd3570dc27ba83ff8a334 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Thu, 24 Feb 2022 11:33:13 +0100 Subject: [PATCH] fix(lms): correct lms table column sorting key --- src/Handler/LMS/Result.hs | 2 +- src/Handler/LMS/Userlist.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/LMS/Result.hs b/src/Handler/LMS/Result.hs index c612da702..e24ebb641 100644 --- a/src/Handler/LMS/Result.hs +++ b/src/Handler/LMS/Result.hs @@ -219,7 +219,7 @@ mkResultTable sid qsh qid = do dbtExtraReps = [] resultDBTableValidator = def - & defaultSorting [SortAscBy "ident"] + & defaultSorting [SortAscBy csvResultIdent] dbTable resultDBTableValidator resultDBTable getLmsResultR, postLmsResultR :: SchoolId -> QualificationShorthand -> Handler Html diff --git a/src/Handler/LMS/Userlist.hs b/src/Handler/LMS/Userlist.hs index 8c3741c86..73a04b422 100644 --- a/src/Handler/LMS/Userlist.hs +++ b/src/Handler/LMS/Userlist.hs @@ -184,7 +184,7 @@ mkUserlistTable sid qsh qid = do dbtExtraReps = [] userlistDBTableValidator = def - & defaultSorting [SortAscBy "ident"] + & defaultSorting [SortAscBy csvUserlistIdent] dbTable userlistDBTableValidator userlistTable