46 lines
1.4 KiB
Haskell
46 lines
1.4 KiB
Haskell
-- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>,Sarah Vaupel <vaupel.sarah@campus.lmu.de>,Winnie Ros <winnie.ros@campus.lmu.de>
|
|
--
|
|
-- SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
module Handler.Course.Events.Edit
|
|
( getCEvEditR, postCEvEditR
|
|
) where
|
|
|
|
import Import
|
|
import Handler.Utils
|
|
|
|
import Handler.Course.Events.Form
|
|
|
|
|
|
getCEvEditR, postCEvEditR :: TermId -> SchoolId -> CourseShorthand -> CryptoUUIDCourseEvent -> Handler Html
|
|
getCEvEditR = postCEvEditR
|
|
postCEvEditR tid ssh csh cID = do
|
|
eId <- decrypt cID
|
|
courseEvent@CourseEvent{..} <- runDB $ get404 eId
|
|
|
|
((eventRes, eventWgt'), eventEnctype) <- runFormPost . courseEventForm . Just $ courseEventToForm courseEvent
|
|
|
|
formResult eventRes $ \CourseEventForm{..} -> do
|
|
now <- liftIO getCurrentTime
|
|
runDB $
|
|
replace eId CourseEvent
|
|
{ courseEventCourse
|
|
, courseEventType = cefType
|
|
, courseEventRoom = cefRoom
|
|
, courseEventRoomHidden = cefRoomHidden
|
|
, courseEventTime = cefTime
|
|
, courseEventNote = cefNote
|
|
, courseEventLastChanged = now
|
|
}
|
|
addMessageI Success MsgCourseEventEdited
|
|
redirect $ CourseR tid ssh csh CShowR :#: [st|event-#{toPathPiece cID}|]
|
|
|
|
siteLayoutMsg MsgCourseEventEdit $ do
|
|
setTitleI MsgCourseEventEdit
|
|
|
|
wrapForm eventWgt' def
|
|
{ formAction = Just . SomeRoute $ CEventR tid ssh csh cID CEvEditR
|
|
, formEncoding = eventEnctype
|
|
}
|
|
|