From b1787cd77e8a643accc0ef54cc18c87df215680c Mon Sep 17 00:00:00 2001 From: ros Date: Thu, 8 Jul 2021 11:14:22 +0200 Subject: [PATCH] feat(tutor tabel sorting): dbt sorting tutors added --- src/Handler/Tutorial/List.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/Handler/Tutorial/List.hs b/src/Handler/Tutorial/List.hs index b49eea883..9043cb08d 100644 --- a/src/Handler/Tutorial/List.hs +++ b/src/Handler/Tutorial/List.hs @@ -71,6 +71,12 @@ getCTutorialListR tid ssh csh = do dbtSorting = Map.fromList [ ("type", SortColumn $ \tutorial -> tutorial E.^. TutorialType ) , ("name", SortColumn $ \tutorial -> tutorial E.^. TutorialName ) + , ( "tutors" + , SortColumn $ \tutorial -> E.subSelectMaybe . E.from $ \(tutor `E.InnerJoin` user) -> do + E.on $ tutor E.^. TutorUser E.==. user E.^. UserId + E.where_ $ tutorial E.^. TutorialId E.==. tutor E.^. TutorTutorial + return . E.min_ $ user E.^. UserSurname + ) , ("participants", SortColumn $ \tutorial -> let participantCount :: E.SqlExpr (E.Value Int) participantCount = E.subSelectCount . E.from $ \tutorialParticipant -> E.where_ $ tutorialParticipant E.^. TutorialParticipantTutorial E.==. tutorial E.^. TutorialId