WIP: Deregister button for CUserPage

src/Handler/Course.hs

@@ -836,10 +836,11 @@ postCUserR tid ssh csh uCId = do
   dozentId <- requireAuthId
   uid <- decrypt uCId
   -- DB reads
-  (cid, User{..}, thisUniqueNote, noteText, noteEdits, studies ) <- runDB $ do
+  (cid, User{..}, registration, thisUniqueNote, noteText, noteEdits, studies ) <- runDB $ do
     cid  <- getKeyBy404 $ TermSchoolCourseShort tid ssh csh
     -- Abfrage Benutzerdaten
     user <- get404 uid
+    registration <- fmap entityVal <$> getBy (UniqueParticipant uid cid)
     -- Abfrage Teilnehmernotiz
     let thisUniqueNote = UniqueCourseUserNote uid cid
     mbNoteEnt <- getBy thisUniqueNote
@@ -860,7 +861,7 @@ postCUserR tid ssh csh uCId = do
       E.on $ studyfeat E.^. StudyFeaturesDegree E.==. studydegree E.^. StudyDegreeId
       return  (studyfeat, studydegree, studyterms)
 
-    return (cid,user,thisUniqueNote,noteText,noteEdits,studies)
+    return (cid,user,registration,thisUniqueNote,noteText,noteEdits,studies)
   let editByWgt = [whamlet|
           $forall (etime,_eemail,ename,_esurname) <- noteEdits
             <br>
@@ -888,6 +889,11 @@ postCUserR tid ssh csh uCId = do
         addMessageI Success MsgCourseUserNoteSaved
         redirect currentRoute -- reload page after post
     )
+  -- De-/Register Button for Lecturer
+  mRegAt   <- traverse (formatTime SelFormatDateTime) $ courseParticipantRegistration <$> registration
+  ((registerRes,registerView), registerEnctype) <- runFormPost $ registerForm (Just uid) registration Nothing Nothing -- Lecturers are never asked their own register secret
+  formResult registerRes $ \(mbfeatures, _secretCorrect) ->
+    error "TODO: change registration"
   -- generate output
   let headingLong  = [whamlet|^{nameWidget userDisplayName userSurname} - _{MsgCourseMemberOf} #{csh} #{display tid}|]
       headingShort = prependCourseTitle tid ssh csh $ SomeMessage userDisplayName

templates/course-user.hamlet

@@ -9,6 +9,16 @@
             #{matnr}
           $nothing
             _{MsgNoMatrikelKnown}
+        <dt .deflist__dt>_{MsgRegisteredHeader}
+        <dd .deflist__dd>
+          <div .course__registration>
+            <a id="register-form">
+            <form method=post action=@{currentRoute}#register-form enctype=#{registerEnctype}>
+              ^{registerView}
+            $maybe date <- mRegAt
+              _{MsgRegisteredSince date}
+
+
         <dt .deflist__dt> _{MsgStudyTerms}
         <dd .deflist__dd>
           $if null studies