s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

filtre out closed courses in achievements

Browse Source
This commit is contained in:
Filip Gralinski 2017-10-03 22:16:00 +02:00
parent d4d4d4c5ad
commit ab76d28b43
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Handler/Achievements.hs
View File

@ -45,7 +45,8 @@ 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'
tagsAvailableAsJSON <- runDB $ getAvailableTagsAsJSON tagsAvailableAsJSON <- runDB $ getAvailableTagsAsJSON

5
config/models
View File

@ -104,7 +104,8 @@ WorkingOn
UniqueWorkingOnAchievementUser achievement user UniqueWorkingOnAchievementUser achievement user
Course Course
name Text name Text
code Text Maybe code Text
closed Bool Maybe closed Bool
UniqueCourseName name UniqueCourseName name
UniqueCourseCode code
-- By default this file is used in Model.hs (which is imported by Foundation.hs) -- By default this file is used in Model.hs (which is imported by Foundation.hs)