From b32654b7203a2802270e40a1c01a1c67ccc5b8b1 Mon Sep 17 00:00:00 2001 From: SJost Date: Wed, 19 Dec 2018 09:26:12 +0100 Subject: [PATCH] Bugfix: Abgabengruppe nach Nachnamen sortieren --- src/Handler/Corrections.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index 946ad1ae9..cf3860950 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -249,9 +249,9 @@ makeCorrectionsTable whereClause dbtColonnade psValidator dbtProj' dbtParams = d E.sub_select . E.from $ \(submissionUser `E.InnerJoin` user) -> do E.on $ submissionUser E.^. SubmissionUserUser E.==. user E.^. UserId E.where_ $ submissionUser E.^. SubmissionUserSubmission E.==. submission E.^. SubmissionId - E.orderBy [E.asc $ user E.^. UserDisplayName] + E.orderBy [E.asc $ user E.^. UserSurname] E.limit 1 - return (user E.^. UserDisplayName) + return (user E.^. UserSurname) ) ]