diff --git a/src/Handler/Course/Register.hs b/src/Handler/Course/Register.hs index 506453d8e..106667ba3 100644 --- a/src/Handler/Course/Register.hs +++ b/src/Handler/Course/Register.hs @@ -142,9 +142,9 @@ courseRegisterForm (Entity cid Course{..}) = liftHandler $ do -> aFormToWForm $ fileUploadForm False (fslI . mkFs) courseApplicationsFiles when (is _Just $ registration >>= courseParticipantAllocated . entityVal) $ - wformMessage =<< messageIconI Warning IconExamRegisterFalse MsgCourseDeregistrationNoShow + wformMessage =<< messageIconI Warning IconExamRegisterFalse MsgCourseDeregistrationAllocationLog when (is _Just (registration >>= courseParticipantAllocated . entityVal) && courseDeregisterNoShow) $ - wformMessage =<< messageIconI Warning IconEnrolFalse MsgCourseDeregistrationAllocationLog + wformMessage =<< messageIconI Warning IconEnrolFalse MsgCourseDeregistrationNoShow return $ CourseRegisterForm <$ secretRes