From 70a95b3e0b933e6d064b39ebccdd7ecbe8c48627 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 7 Mar 2018 13:59:50 +0100
Subject: [PATCH] Beispiel Internationalisierung in Handler.Term

---
 messages/de.msg     | 3 ++-
 src/Handler/Term.hs | 9 ++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/messages/de.msg b/messages/de.msg
index b23e13c99..0981f3971 100644
--- a/messages/de.msg
+++ b/messages/de.msg
@@ -1,2 +1,3 @@
 SummerTerm year@Integer: Sommersemester #{tshow year}
-WinterTerm year@Integer: Wintersemester #{tshow year}/#{tshow $ succ year}
\ No newline at end of file
+WinterTerm year@Integer: Wintersemester #{tshow year}/#{tshow $ succ year}
+SemesterEdited tid@TermIdentifier: Semester #{termToText tid} erfolgreich editiert.
diff --git a/src/Handler/Term.hs b/src/Handler/Term.hs
index e41e24fc3..5dfc1e5fd 100644
--- a/src/Handler/Term.hs
+++ b/src/Handler/Term.hs
@@ -101,9 +101,12 @@ termEditHandler term = do
         | fAct == formActionSave -> do
           -- term <- runDB $ get $ TermKey termName 
           runDB $ repsert (TermKey $ termName res) res
-          let tid = termToText $ termName res
-          let msg = "Semester " `T.append` tid `T.append` " erfolgreich editiert."            
-          addMessage "success" [shamlet| #{msg} |]
+-- VOR INTERNATIONALISIERUNG:
+--           let tid = termToText $ termName res
+--           let msg = "Semester " `T.append` tid `T.append` " erfolgreich editiert."
+--           addMessage "success" [shamlet| #{msg} |]
+-- MIT INTERNATIONALISIERUNG:
+          addMessageI "success" $ MsgSemesterEdited $ termName res
           redirect TermShowR   
         | otherwise -> redirect TermShowR      
       (FormMissing,_)   -> return ()