filter achievements

This commit is contained in:
Filip Gralinski 2017-10-20 10:00:03 +02:00
parent 6aba6be745
commit 08b357fb64

View File

@ -45,8 +45,17 @@ postAchievementsR = do
doAchievements mUser formWidget formEnctype = do doAchievements mUser formWidget formEnctype = do
achievements <- runDB $ selectList [] [Asc AchievementName] achievements <- runDB $ selectList [] [Asc AchievementName]
mUser <- maybeAuth mUser <- maybeAuth
achievementInfos' <- runDB $ mapM (getAchievementInfo mUser) achievements achievementInfos'' <- runDB $ mapM (getAchievementInfo mUser) achievements
let achievementInfos = Import.filter (not . courseClosed . entityVal . achievementInfoCourse) achievementInfos' let achievementInfos' = Import.filter (not . courseClosed . entityVal . achievementInfoCourse) achievementInfos''
courses <- case mUser of
Just (Entity userId _) -> do
ents <- runDB $ selectList [ParticipantUser ==. userId] []
return $ Import.map (participantCourse . entityVal) ents
Nothing -> do
return []
let achievementInfos = Import.filter (isParticipant courses) achievementInfos'
tagsAvailableAsJSON <- runDB $ getAvailableTagsAsJSON tagsAvailableAsJSON <- runDB $ getAvailableTagsAsJSON
@ -54,6 +63,10 @@ doAchievements mUser formWidget formEnctype = do
setTitle "Achievements" setTitle "Achievements"
$(widgetFile "achievements") $(widgetFile "achievements")
isParticipant :: [CourseId] -> AchievementInfo -> Bool
isParticipant [] _ = True
isParticipant courses info = (entityKey $ achievementInfoCourse info) `elem` courses
achievementsTable :: Bool -> Table.Table App (AchievementInfo) achievementsTable :: Bool -> Table.Table App (AchievementInfo)
achievementsTable canEdit = mempty achievementsTable canEdit = mempty
++ achievementNameEntry canEdit ++ achievementNameEntry canEdit