fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Beispiel Internationalisierung in Handler.Term

Browse Source
This commit is contained in:
SJost 2018-03-07 13:59:50 +01:00
parent dead99d194
commit 70a95b3e0b
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
messages/de.msg
View File

@ -1,2 +1,3 @@
SummerTerm year@Integer: Sommersemester #{tshow year} SummerTerm year@Integer: Sommersemester #{tshow year}
WinterTerm year@Integer: Wintersemester #{tshow year}/#{tshow $ succ year} WinterTerm year@Integer: Wintersemester #{tshow year}/#{tshow $ succ year}
SemesterEdited tid@TermIdentifier: Semester #{termToText tid} erfolgreich editiert.

9
src/Handler/Term.hs
View File

@ -101,9 +101,12 @@ termEditHandler term = do
| fAct == formActionSave -> do | fAct == formActionSave -> do
-- term <- runDB $ get $ TermKey termName -- term <- runDB $ get $ TermKey termName
runDB $ repsert (TermKey $ termName res) res runDB $ repsert (TermKey $ termName res) res
let tid = termToText $ termName res -- VOR INTERNATIONALISIERUNG:
let msg = "Semester " `T.append` tid `T.append` " erfolgreich editiert." -- let tid = termToText $ termName res
addMessage "success" [shamlet| #{msg} |] -- let msg = "Semester " `T.append` tid `T.append` " erfolgreich editiert."
-- addMessage "success" [shamlet| #{msg} |]
-- MIT INTERNATIONALISIERUNG:
addMessageI "success" $ MsgSemesterEdited $ termName res
redirect TermShowR redirect TermShowR
| otherwise -> redirect TermShowR | otherwise -> redirect TermShowR
(FormMissing,_) -> return () (FormMissing,_) -> return ()