From 445ddb8ca67a0defbd72b48a3169bead9d983e74 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Mon, 22 Oct 2018 21:41:39 +0200
Subject: [PATCH] minor

---
 messages/uniworx/de.msg | 1 +
 src/Handler/Home.hs     | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index 0d3bea8b7..2c30a1c50 100644
--- a/messages/uniworx/de.msg
+++ b/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
diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs
index 3ba5bab0a..c0660967a 100644
--- a/src/Handler/Home.hs
+++ b/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) -}