diff --git a/src/Handler/Qualification.hs b/src/Handler/Qualification.hs index b275c3e31..ddc7154b0 100644 --- a/src/Handler/Qualification.hs +++ b/src/Handler/Qualification.hs @@ -437,10 +437,10 @@ mkQualificationTable isAdmin (Entity qid quali) acts cols psValidator = do E.&&. quser E.^. QualificationUserValidUntil E.>=. E.val nowaday | otherwise -> E.true ) - , single ("tobe-notified", FilterColumn $ \(queryQualUser -> quser) criterion -> - if | Just True <- getLast criterion -> quser `quserToNotify` now - | otherwise -> E.true - ) + -- , single ("tobe-notified", FilterColumn $ \(queryQualUser -> quser) criterion -> + -- if | Just True <- getLast criterion -> quser `quserToNotify` now + -- | otherwise -> E.true + -- ) , single ("status" , FilterColumn . E.mkExactFilterMaybeLast' (views (to queryLmsUser) (E.?. LmsUserId)) $ views (to queryLmsUser) (E.?. LmsUserStatus)) ] dbtFilterUI mPrev = mconcat @@ -452,7 +452,7 @@ mkQualificationTable isAdmin (Entity qid quali) acts cols psValidator = do , prismAForm (singletonFilter "validity" . maybePrism _PathPiece) mPrev $ aopt (boolField . Just $ SomeMessage MsgBoolIrrelevant) (fslI MsgFilterLmsValid) , if isNothing mbRenewal then mempty else prismAForm (singletonFilter "renewal-due" . maybePrism _PathPiece) mPrev $ aopt checkBoxField (fslI MsgFilterLmsRenewal) - , prismAForm (singletonFilter "tobe-notified" . maybePrism _PathPiece) mPrev $ aopt checkBoxField (fslI MsgFilterLmsNotificationDue) + -- , prismAForm (singletonFilter "tobe-notified" . maybePrism _PathPiece) mPrev $ aopt checkBoxField (fslI MsgFilterLmsNotificationDue) , prismAForm (singletonFilter "status" . maybePrism _PathPiece) mPrev $ aopt (hoistField liftHandler (selectField optionsFinite) :: (Field _ (Maybe LmsStatus))) (fslI MsgTableLmsStatus) ] dbtStyle = def { dbsFilterLayout = defaultDBSFilterLayout }