Minor: delete as message

messages/uniworx/de.msg

@@ -378,4 +378,7 @@ SheetNoRegisteredGroup sheetGroupDesc@Text: "#{sheetGroupDesc}" sind nicht als G
 SheetAmbiguousRegisteredGroup sheetGroupDesc@Text: "#{sheetGroupDesc}" enthält Mitglieder aus verschiedenen registrierten Gruppen
 SheetNoGroupSubmission sheetGroupDesc@Text: Gruppenabgabe ist für dieses Blatt nicht vorgesehen (#{sheetGroupDesc})
 SheetDuplicatePseudonym: Folgende Pseudonyme kamen mehrfach vor; alle Vorkommen außer dem Ersten wurden ignoriert:
-SheetCreateExisting: Folgende Pseudonyme haben bereits abgegeben:
+SheetCreateExisting: Folgende Pseudonyme haben bereits abgegeben:
+
+
+UserAccountDeleted name@Text: Konto für #{name} wurde gelöscht!

src/Handler/Home.hs

@@ -226,14 +226,18 @@ getVersionR = selectRep $ do
       return ($gitDescribe :: Text)
 
 
+-- helpForm
+
 getHelpR :: Handler Html
 getHelpR = do
   -- can we get the previous route?
   --who <- maybeAuth
   --now <- getCurrentTime
   --where <- getCurrentRoute
+  -- WAI getReferer
   -- TODO: form for free input
   defaultLayout $ do
+    setTitle "Hilfe"
     [whamlet|TODO|]
 
 postHelpR :: Handler Html

src/Handler/Profile.hs

@@ -163,10 +163,12 @@ postProfileDataR = do
   case btnResult of
     (FormSuccess BtnDelete) -> do
       (uid, User{..}) <- requireAuthPair
+      clearCreds False -- Logout-User
       ((deletedSubmissions,groupSubmissions),deletedSubmissionGroups) <- runDB $ deleteUser uid
+      -- addMessageIHamlet
+      $(addMessageFile Success "templates/deletedUser.hamlet") -- USE THIS ONE
       -- addMessageI Success $ MsgDeleteUser deletedSubmissions
       -- when (groupSubmissions > 0) $ addMessageI Info $ MsgDeleteUserGroupSubmissions groupSubmissions
-      --TODO: LogOut user
       defaultLayout $ do
         $(widgetFile "deletedUser")
 
@@ -181,7 +183,6 @@ deleteUser :: UserId -> DB ((Int,Int),Int64) -- TODO: Restrict deletions for lec
 deleteUser duid = do
     -- E.deleteCount for submissions is not cascading, hence we first select and then delete manually
     -- Submissions / SubmissionUser
-    -- TODO: SubmissionGroup / SubmissionGroupUser
     -- TODO: SheetPseudonym ???
     groupSubmissions  <- selectSubmissionsWhere (\numBuddies -> numBuddies E.>.  E.val (0::Int64))
     singleSubmissions <- selectSubmissionsWhere (\numBuddies -> numBuddies E.==. E.val (0::Int64))

templates/deletedUser.hamlet

@@ -1,14 +1,16 @@
 <div .container>
   <h1>
-    Account für ^{nameWidget userDisplayName userSurname} wurde gelöscht
+    _{MsgUserAccountDeleted userDisplayName}
   <div .container>
     #{display deletedSubmissions} Abgaben wurden unwiederruflich gelöscht.
-  <div .container>
+  $if groupSubmissions > 0
-    #{display groupSubmissions} Gruppenabgaben verbleiben in der Datenbank,
+    <div .container>
-    aber die Zuordnung zum Benutzer wurden gelöscht.
+      #{display groupSubmissions} Gruppenabgaben verbleiben in der Datenbank,
-    Gruppenabgaben können dadurch zu Einzelabgaben werden,
+      aber die Zuordnung zum Benutzer wurden gelöscht.
-    welche dann vom letzten Benutzer gelöscht werden können.
+      Gruppenabgaben können dadurch zu Einzelabgaben werden,
+      welche dann vom letzten Benutzer gelöscht werden können.
   $if deletedSubmissionGroups > 0
     <div .container>
       #{display deletedSubmissionGroups} benannte Abgabengruppen wurden gelöscht, da diese dadurch leer wurden.
-
+  <div .container>
+    Good Bye!