diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index 9e4e1b8fd..563d3227c 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -223,7 +223,7 @@ NoCorrector: Kein Korrektor RemovedCorrections num@Int64: Korrektur-Daten wurden von #{display num} Abgaben entfernt. UpdatedAssignedCorrectorsAuto num@Int64: #{display num} Abgaben wurden unter den Korrektoren aufgeteilt. CouldNotAssignCorrectorsAuto num@Int64: #{display num} Abgaben konnten nicht automatisch zugewiesen werden: -SelfCorrectors num@Int64: #{display num} Abgaben haben Abgebenden als eigenen Korrektor zugeteilt +SelfCorrectors num@Int64: #{display num} Abgaben wurden Abgebenden als eigenem Korrektor zugeteilt! CorrectionsUploaded num@Int64: #{display num} Korrekturen wurden gespeichert: diff --git a/routes b/routes index 393582a02..6116665dc 100644 --- a/routes +++ b/routes @@ -39,7 +39,7 @@ /info VersionR GET !free /profile ProfileR GET POST !free !free -/profile/data ProfileDataR GET !free !free +/profile/data ProfileDataR GET POST !free !free /term TermShowR GET !free /term/current TermCurrentR GET !free diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs index 1999adb49..156961629 100644 --- a/src/Handler/Admin.hs +++ b/src/Handler/Admin.hs @@ -53,9 +53,9 @@ postAdminTestR :: Handler Html postAdminTestR = do ((btnResult,_), _) <- runFormPost $ buttonForm case btnResult of - (FormSuccess CreateInf) -> setMessage "Informatik-Knopf gedrückt" + (FormSuccess CreateInf) -> addMessage Info "Informatik-Knopf gedrückt" (FormSuccess CreateMath) -> addMessage Warning "Knopf Mathematik erkannt" - _other -> return () + _other -> addMessage Warning "KEIN Knopf erkannt" getAdminTestR diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs index d23328925..29918fe82 100644 --- a/src/Handler/Profile.hs +++ b/src/Handler/Profile.hs @@ -140,13 +140,21 @@ postProfileR = do -- TODO getProfileR - +postProfileDataR :: Handler Html +postProfileDataR = do + (uid, User{..}) <- requireAuthPair + ((btnResult,_), _) <- runFormPost $ buttonForm + case btnResult of + (FormSuccess BtnDelete) -> addMessage Warning "Delete-Knopf gedrückt" + (FormSuccess BtnAbort ) -> addMessage Warning "Knopf Abort erkannt" + _other -> addMessage Warning "KEIN Knopf erkannt" + addMessage Error "Löschen der Daten wurde noch nicht implementiert." + getProfileDataR getProfileDataR :: Handler Html getProfileDataR = do (uid, User{..}) <- requireAuthPair -- mr <- getMessageRender - -- Tabelle mit eigenen Kursen (hasRows, ownedCoursesTable) <- mkOwnedCoursesTable uid -- Tabelle mit allen Teilnehmer: Kurs (link), Datum @@ -163,6 +171,20 @@ getProfileDataR = do ownTutorialTable <- return [whamlet| Übungsgruppen werden momentan leider noch nicht unterstützt.|] -- Tabelle mit allen Tutorials tutorialTable <- return [whamlet| Übungsgruppen werden momentan leider noch nicht unterstützt.|] + -- Delete Button + (btnWdgt, btnEnctype) <- generateFormPost (buttonForm :: Form BtnDelete) + -- TODO: move this into a Message and/or Widget-File + let delWdgt = [whamlet| +