diff --git a/frontend/src/utils/alerts/alert-icons.js b/frontend/src/utils/alerts/alert-icons.js index eb497d9bd..434d98568 100644 --- a/frontend/src/utils/alerts/alert-icons.js +++ b/frontend/src/utils/alerts/alert-icons.js @@ -15,6 +15,6 @@ export const ALERT_ICONS = { info: '"\\f05a"', registered: '"\\f274"', userplus: '"\\f234"', - userslash: '"\\f504"', + userslash: '"\\f506"', warning: '"\\f071"', }; diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 141824f9d..b978c75f3 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -557,11 +557,11 @@ postCRegisterR tid ssh csh = do formResult regResult $ \(mbSfId,codeOk) -> if | isRegistered -> do runDB $ deleteBy $ UniqueParticipant aid cid - addMessageI Info MsgCourseDeregisterOk + addMessageIconI Info IconEnrolFalse MsgCourseDeregisterOk | codeOk -> do actTime <- liftIO getCurrentTime regOk <- runDB $ insertUnique $ CourseParticipant cid aid actTime mbSfId - when (isJust regOk) $ addMessageI Success MsgCourseRegisterOk + when (isJust regOk) $ addMessageIconI Success IconEnrolTrue MsgCourseRegisterOk | otherwise -> addMessageI Warning MsgCourseSecretWrong -- addMessage Info $ toHtml $ show regResult -- For debugging only redirect $ CourseR tid ssh csh CShowR @@ -1418,7 +1418,7 @@ postCUserR tid ssh csh uCId = do | Just (Entity pId _) <- mRegistration -> do runDB $ delete pId - addMessageI Info MsgCourseDeregisterOk + addMessageIconI Info IconEnrolFalse MsgCourseDeregisterOk redirect $ CourseR tid ssh csh CUsersR | otherwise -> invalidArgs ["User not registered"] @@ -1432,7 +1432,7 @@ postCUserR tid ssh csh uCId = do pId <- runDB . insertUnique $ CourseParticipant cid uid now primaryField case pId of Just _ -> do - addMessageI Success MsgCourseRegisterOk + addMessageIconI Success IconEnrolTrue MsgCourseRegisterOk redirect currentRoute Nothing -> invalidArgs ["User already registered"]