minor

messages/uniworx/de.msg

@@ -399,6 +399,7 @@ HelpEMail: E-Mail
 HelpRequest: Supportanfrage / Verbesserungsvorschlag
 HelpProblemPage: Problematische Seite 
 HelpIntroduction: Wenn Ihnen die Benutzung dieser Webseite Schwierigkeiten bereitet oder Sie einen verbesserbaren Umstand entdecken bitten wir Sie uns das zu melden, auch wenn Sie Ihr Problem bereits selbst lösen konnten. Wir passen die Seite ständig an und versuchen sie auch für zukünftige Benutzer so einsichtig wie möglich zu halten.
+HelpSent: Ihre Supportanfrage wurde weitergeleitet.
 
 SystemMessageFrom: Sichtbar ab
 SystemMessageTo: Sichtbar bis

src/Handler/Home.hs

@@ -297,7 +297,9 @@ postHelpR = do
                                   , jHelpRequest = hfRequest
                                   , jRequestTime = now
                                   , jReferer     = hfReferer }
-      redirect $ HelpR
+      -- redirect $ HelpR
+      addMessageI Success MsgHelpSent
+      return ()
       {-selectRep $ do
           provideJson ()
           provideRep (redirect $ HelpR :: Handler Html) -}