From e4f150d0d536c36294abe6df27ba56a7ca5c16a9 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Fri, 9 Aug 2019 16:57:08 +0200 Subject: [PATCH] feat(course-teaser): checkbox field for open registration filter --- src/Handler/Course/List.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Handler/Course/List.hs b/src/Handler/Course/List.hs index 19aac2caf..f2bab2d7c 100644 --- a/src/Handler/Course/List.hs +++ b/src/Handler/Course/List.hs @@ -8,6 +8,8 @@ module Handler.Course.List import Import +import Data.Maybe (fromJust) + import Utils.Lens import Utils.Form -- import Utils.DB @@ -158,7 +160,7 @@ makeCourseTable whereClause colChoices psValidator = do , Just $ prismAForm (singletonFilter "schoolshort" . maybePrism (_PathPiece . from _SchoolId)) mPrev $ aopt (hoistField lift schoolField) (fslI MsgCourseSchool) , Just $ prismAForm (singletonFilter "lecturer") mPrev $ aopt textField (fslI MsgCourseLecturer) , Just $ prismAForm (singletonFilter "search") mPrev $ aopt textField (fslI MsgCourseFilterSearch) - , Just $ prismAForm (singletonFilter "openregistration" . maybePrism _PathPiece) mPrev $ aopt boolField (fslI MsgCourseRegisterOpen) -- TODO: checkbox instead of boolField + , Just $ prismAForm (singletonFilter "openregistration" . maybePrism _PathPiece) mPrev $ fmap (\x -> if isJust x && not (fromJust x) then Nothing else x) . aopt checkBoxField (fslI MsgCourseRegisterOpen) , muid $> prismAForm (singletonFilter "registered" . maybePrism _PathPiece) mPrev (aopt boolField (fslI MsgCourseFilterRegistered)) ] , dbtStyle = def