feat(course-events): add optional note to course events

messages/uniworx/de-de-formal.msg

@@ -2218,6 +2218,7 @@ CourseEventType: Art
 CourseEventTypePlaceholder: Vorlesung, Zentralübung, ...
 CourseEventTime: Zeit
 CourseEventRoom: Regulärer Raum
+CourseEventNote: Notiz
 CourseEventActions: Aktionen
 CourseEventsActionEdit: Bearbeiten
 CourseEventsActionDelete: Löschen

messages/uniworx/en-eu.msg

@@ -2218,6 +2218,7 @@ CourseEventType: Type
 CourseEventTypePlaceholder: Lecture, Exercise discussion, ...
 CourseEventTime: Time
 CourseEventRoom: Regular room
+CourseEventNote: Note
 CourseEventActions: Actions
 CourseEventsActionEdit: Edit
 CourseEventsActionDelete: Delete

models/courses.model

@@ -30,6 +30,7 @@ CourseEvent
     course CourseId
     room Text
     time Occurrences
+    note Text Maybe
     lastChanged UTCTime default=now()
 
 CourseAppInstructionFile

src/Handler/Course/Events/Edit.hs

@@ -24,6 +24,7 @@ postCEvEditR tid ssh csh cID = do
         , courseEventType = cefType
         , courseEventRoom = cefRoom
         , courseEventTime = cefTime
+        , courseEventNote = cefNote
         , courseEventLastChanged = now
         }
     addMessageI Success MsgCourseEventEdited

src/Handler/Course/Events/Form.hs

@@ -15,6 +15,7 @@ data CourseEventForm = CourseEventForm
   { cefType             :: CI Text
   , cefRoom             :: Text
   , cefTime             :: Occurrences
+  , cefNote             :: Maybe Text
   }
 
 courseEventForm :: Maybe CourseEventForm -> Form CourseEventForm
@@ -34,15 +35,18 @@ courseEventForm template = identifyForm FIDCourseEvent . renderWForm FormStandar
   cefType' <- wreq (textField & cfStrip & cfCI & addDatalist courseEventTypes) (fslI MsgCourseEventType & addPlaceholder (mr MsgCourseEventTypePlaceholder)) (cefType <$> template)
   cefRoom' <- wreq (textField & cfStrip & addDatalist courseEventRooms) (fslI MsgCourseEventRoom) (cefRoom <$> template)
   cefTime' <- aFormToWForm $ occurrencesAForm ("time" :: Text) (cefTime <$> template)
+  cefNote' <- wopt textField (fslI MsgCourseEventNote) (cefNote <$> template)
 
   return $ CourseEventForm
     <$> cefType'
     <*> cefRoom'
     <*> cefTime'
+    <*> cefNote'
 
 courseEventToForm :: CourseEvent -> CourseEventForm
 courseEventToForm CourseEvent{..} = CourseEventForm
   { cefType = courseEventType
   , cefRoom = courseEventRoom
   , cefTime = courseEventTime
+  , cefNote = courseEventNote
   }

src/Handler/Course/Events/New.hs

@@ -22,6 +22,7 @@ postCEventsNewR tid ssh csh = do
         , courseEventType        = cefType
         , courseEventRoom        = cefRoom
         , courseEventTime        = cefTime
+        , courseEventNote        = cefNote
         , courseEventLastChanged = now
         }
       encrypt eId :: DB CryptoUUIDCourseEvent