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

feat(course-visibility): redirect to NewsR after deregister (WIP!)

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-06 20:38:39 +02:00
parent 43f625ba0c
commit 183aa8d222
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,12 +10,15 @@ import Import
import Handler.Utils import Handler.Utils
import Utils.Course
import qualified Data.Text as Text import qualified Data.Text as Text
import qualified Data.Conduit.List as C import qualified Data.Conduit.List as C
import Database.Persist.Sql (transactionUndo) import Database.Persist.Sql (transactionUndo)
import qualified Database.Esqueleto as E import qualified Database.Esqueleto as E
import qualified Database.Esqueleto.Utils as E
-- Dedicated CourseRegistrationButton -- Dedicated CourseRegistrationButton
@ -246,7 +249,13 @@ postCRegisterR tid ssh csh = do
BtnCourseRetractApplication -> runDB $ do BtnCourseRetractApplication -> runDB $ do
deleteApplications uid cid deleteApplications uid cid
addMessageIconI Info IconApplyFalse MsgCourseRetractApplyOk addMessageIconI Info IconApplyFalse MsgCourseRetractApplyOk
redirect $ CourseR tid ssh csh CShowR muid <- maybeAuthId
ata <- getSessionActiveAuthTags
now <- liftIO getCurrentTime
courseVisible <- runDB $ E.selectExists . E.from $ \c -> E.where_ $ -- TODO meh...
c E.^. CourseId E.==. E.val cid
E.&&. mayViewCourse muid ata now c Nothing
redirect $ bool NewsR (CourseR tid ssh csh CShowR) courseVisible
deleteApplications :: UserId -> CourseId -> DB () deleteApplications :: UserId -> CourseId -> DB ()
deleteApplications uid cid = do deleteApplications uid cid = do