From 9feb4b7d5dfe5da1a4efb1ac628ff4fbab93128c Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 18 Jul 2018 12:30:32 +0200
Subject: [PATCH] Minor message cleaning

---
 messages/de.msg      | 6 +-----
 src/Handler/Sheet.hs | 4 ++--
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/messages/de.msg b/messages/de.msg
index 9560f5a38..99220e436 100644
--- a/messages/de.msg
+++ b/messages/de.msg
@@ -64,6 +64,7 @@ SheetHintFrom: Hinweis ab
 SheetSolution: Lösung
 SheetSolutionFrom: Lösung ab
 SheetMarking: Korrekturhinweise
+SheetType: Bewertung
 
 SheetVisibleFrom: Sichtbar ab
 SheetActiveFrom: Aktiv ab
@@ -220,8 +221,3 @@ AmbiguousUTCTime: Der angegebene Zeitpunkt lässt sich nicht eindeutig zu UTC ko
 LastEdits: Letzte Änderungen
 EditedBy name@Text time@Text: Durch #{name} um #{time}
 LastEdit: Letzte Änderung
-
-SubmissionSince: Abgabe seit
-SubmissionTo: Abgabe bis
-
-SheetType: Bewertung
\ No newline at end of file
diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 655894352..f564b0af4 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -162,9 +162,9 @@ getSheetListR tid csh = do
         $ \(_, E.Value mEditTime) -> case mEditTime of
           Just editTime -> cell $ formatTime SelFormatDateTime (editTime :: UTCTime) >>= toWidget
           Nothing -> mempty
-      , sortable (Just "submission-since") (i18nCell MsgSubmissionSince)
+      , sortable (Just "submission-since") (i18nCell MsgSheetActiveFrom)
         $ \(Entity _ Sheet{..}, _) -> cell $ formatTime SelFormatDateTime sheetActiveFrom >>= toWidget
-      , sortable (Just "submission-until") (i18nCell MsgSubmissionTo)
+      , sortable (Just "submission-until") (i18nCell MsgSheetActiveTo)
         $ \(Entity _ Sheet{..}, _) -> cell $ formatTime SelFormatDateTime sheetActiveTo   >>= toWidget
       , sortable Nothing (i18nCell MsgSheetType)
         $ \(Entity _ Sheet{..}, _) -> textCell $ display sheetType