fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(exams): filter on occurrence

Browse Source
This commit is contained in:
Gregor Kleen 2019-07-16 10:29:39 +02:00
parent 2b23600a22
commit cf040ce686
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Exam.hs
View File

@ -893,6 +893,7 @@ postEUsersR tid ssh csh examn = do
, fltrField queryStudyField , fltrField queryStudyField
, fltrDegree queryStudyDegree , fltrDegree queryStudyDegree
, fltrFeaturesSemester queryStudyFeatures , fltrFeaturesSemester queryStudyFeatures
, ("occurrence", FilterColumn . E.mkContainsFilterWith Just $ queryExamOccurrence >>> (E.?. ExamOccurrenceName))
] ]
dbtFilterUI mPrev = mconcat dbtFilterUI mPrev = mconcat
[ fltrUserNameEmailUI mPrev [ fltrUserNameEmailUI mPrev
@ -900,6 +901,7 @@ postEUsersR tid ssh csh examn = do
, fltrFieldUI mPrev , fltrFieldUI mPrev
, fltrDegreeUI mPrev , fltrDegreeUI mPrev
, fltrFeaturesSemesterUI mPrev , fltrFeaturesSemesterUI mPrev
, prismAForm (singletonFilter "occurrence") mPrev $ aopt textField (fslI MsgExamOccurrence)
] ]
dbtStyle = def { dbsFilterLayout = defaultDBSFilterLayout } dbtStyle = def { dbsFilterLayout = defaultDBSFilterLayout }
dbtParams = def dbtParams = def