From cf040ce6863488f4708c1c2059f783413b1183d1 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Tue, 16 Jul 2019 10:29:39 +0200
Subject: [PATCH] feat(exams): filter on occurrence

---
 src/Handler/Exam.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Handler/Exam.hs b/src/Handler/Exam.hs
index 230bb405c..b9ebc0893 100644
--- 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