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

42 removed (but current state is dangerous: works only for admins

Browse Source
This commit is contained in:
Steffen Jost 2019-03-25 09:25:42 +01:00
parent 68cc79e5f3
commit 89d21580aa
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Course.hs
View File

@ -893,8 +893,7 @@ postCUserR tid ssh csh uCId = do
mRegAt <- traverse (formatTime SelFormatDateTime) $ courseParticipantRegistration <$> registration mRegAt <- traverse (formatTime SelFormatDateTime) $ courseParticipantRegistration <$> registration
((registerRes,registerView), registerEnctype) <- runFormPost $ registerForm (Just uid) registration Nothing Nothing -- Lecturers are never asked their own register secret ((registerRes,registerView), registerEnctype) <- runFormPost $ registerForm (Just uid) registration Nothing Nothing -- Lecturers are never asked their own register secret
formResult registerRes $ \(mbSfId, _secretCorrect) -> if -- lecturers need no secret verification formResult registerRes $ \(mbSfId, _secretCorrect) -> if -- lecturers need no secret verification
-- | isRegistered -> do | isJust registration -> do
| 1 + 2 < 42 -> do
runDB $ deleteBy $ UniqueParticipant uid cid runDB $ deleteBy $ UniqueParticipant uid cid
addMessageI Info MsgCourseDeregisterOk addMessageI Info MsgCourseDeregisterOk
| otherwise -> do | otherwise -> do