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

Apply 1 suggestion(s) to 1 file(s)

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-10 11:40:03 +02:00
parent e4f9f393eb
commit d20ad6c5db
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Course/Register.hs
View File

@ -268,7 +268,7 @@ postCRegisterR tid ssh csh = do
muid <- maybeAuthId muid <- maybeAuthId
ata <- getSessionActiveAuthTags ata <- getSessionActiveAuthTags
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
courseVisible <- runDB $ E.selectExists . E.from $ \c -> E.where_ $ -- TODO meh... courseVisible <- runDB . E.selectExists . E.from $ \c -> E.where_ $
c E.^. CourseId E.==. E.val cid c E.^. CourseId E.==. E.val cid
E.&&. mayViewCourse muid ata now c Nothing E.&&. mayViewCourse muid ata now c Nothing
redirect $ bool NewsR (CourseR tid ssh csh CShowR) courseVisible redirect $ bool NewsR (CourseR tid ssh csh CShowR) courseVisible