feat(exams): filter on occurrence

2019-07-16 10:29:39 +02:00 · 2019-07-16 10:29:39 +02:00 · cf040ce686
commit cf040ce686
parent 2b23600a22
1 changed files with 2 additions and 0 deletions
--- a/src/Handler/Exam.hs
+++ b/src/Handler/Exam.hs
@ -893,6 +893,7 @@ postEUsersR tid ssh csh examn = do
            , fltrField            queryStudyField
            , fltrDegree           queryStudyDegree
            , fltrFeaturesSemester queryStudyFeatures
+            , ("occurrence", FilterColumn . E.mkContainsFilterWith Just $ queryExamOccurrence >>> (E.?. ExamOccurrenceName))
            ]
          dbtFilterUI mPrev = mconcat
            [ fltrUserNameEmailUI    mPrev
@ -900,6 +901,7 @@ postEUsersR tid ssh csh examn = do
            , fltrFieldUI            mPrev
            , fltrDegreeUI           mPrev
            , fltrFeaturesSemesterUI mPrev
+            , prismAForm (singletonFilter "occurrence") mPrev $ aopt textField (fslI MsgExamOccurrence)
            ]
          dbtStyle = def { dbsFilterLayout = defaultDBSFilterLayout }
          dbtParams = def