Minor fixes.

fill-db.hs

@@ -43,7 +43,7 @@ main = db $ do
     , userEmail  = "jost@tcs.ifi.lmu.de"
     , userDisplayName = "Steffen Jost"
     , userMaxFavourites = 14
-    , userTheme = MintGreen
+    , userTheme = MossGreen
     }
   void . insert $ Term
     { termName     = summer2017

messages/de.msg

@@ -50,9 +50,26 @@ SheetDelHead       tid@TermId courseShortHand@Text sheetName@Text: Übungsblatt
 SheetDelText       submissionNo@Int: Dies kann nicht mehr rückgängig gemacht werden! Alle Einreichungen gehen ebenfalls verloren! Es gibt #{display submissionNo} Abgaben.
 SheetDelOk         tid@TermId courseShortHand@Text sheetName@Text: #{display tid}-#{courseShortHand}: Übungsblatt #{sheetName} gelöscht.
 
+SheetExercise: Aufgabenstellung
+SheetHint: Hinweise
+SheetSolution: Lösung
+SheetMarking: Korrekturhinweise
+
 Deadline: Abgabe
 Done: Eingereicht
 
+Submission: Abgabenummer
+SubmissionWrongSheet: Abgabenummer gehört nicht zum angegebenen Übungsblatt.
+SubmissionAlreadyExists: Sie haben bereits eine Abgabe zu diesem Übungsblatt.
+SubmissionEditHead tid@TermId courseShortHand@Text sheetName@Text: #{display tid}-#{courseShortHand} #{sheetName}: Abgabe editieren/anlegen
+SubmissionMember g@Int: Mitabgebende(r) ##{display g}
+SubmissionArchive: Zip-Archiv der Abgabedatei(en)
+SubmissionFile: Datei zur Abgabe
+SubmissionAlreadyExistsFor user@Text: #{user} hat bereits eine Abgabe zu diesem bÜbungsblatt.
+
+CorrectionsTitle: Zugewiesene Korrekturen
+CourseCorrectionsTitle: Korrekturen für diesen Kurs
+
 Unauthorized: Sie haben hierfür keine explizite Berechtigung.
 UnauthorizedAnd l@Text r@Text: #{l} UND #{r}
 UnauthorizedOr  l@Text r@Text: #{l} ODER #{r}
@@ -72,26 +89,13 @@ DeprecatedRoute: Diese Ansicht ist obsolet und könnte in Zukunft entfallen.
 UnfreeMaterials: Die Materialien für diese Veranstaltung sind nicht allgemein freigegeben.
 UnauthorizedWrite: Sie haben hierfür keine Schreibberechtigung
 
-Submission: Abgabenummer
-
-SubmissionWrongSheet: Abgabenummer gehört nicht zum angegebenen Übungsblatt.
-SubmissionAlreadyExists: Sie haben bereits eine Abgabe zu diesem Übungsblatt.
-SubmissionEditHead tid@TermId courseShortHand@Text sheetName@Text: #{display tid}-#{courseShortHand} #{sheetName}: Abgabe editieren/anlegen
-SubmissionMember g@Int: Mitabgebende(r) ##{display g}
-SubmissionArchive: Zip-Archiv der Abgabedatei(en)
-SubmissionFile: Datei zur Abgabe
-SubmissionAlreadyExistsFor user@Text: #{user} hat bereits eine Abgabe zu diesem bÜbungsblatt.
-
-CorrectionsTitle: Zugewiesene Korrekturen
-CourseCorrectionsTitle: Korrekturen für diesen Kurs
-
 EMail: E-Mail
 EMailUnknown email@Text: E-Mail #{email} gehört zu keinem bekannten Benutzer.
 NotAParticipant user@Text tid@TermId csh@Text: #{user} ist nicht im Kurs #{display tid}-#{csh} angemeldet.
 
 AddCorrector: Zusätzlicher Korrektor
 CorrectorExists user@Text: #{user} ist bereits als Korrektor eingetragen
-SheetCorrectorsTitle tid@TermIdentifier courseShortHand@Text sheetName@Text: Korrektoren für #{termToText tid}-#{courseShortHand} #{sheetName}
+SheetCorrectorsTitle tid@TermId courseShortHand@Text sheetName@Text: Korrektoren für #{display tid}-#{courseShortHand} #{sheetName}
 CountTutProp: Tutorien zählen gegen Proportion
 Corrector: Korrektor
 Correctors: Korrektoren
@@ -120,11 +124,6 @@ Ident: Identifizierung
 Settings: Individuelle Benutzereinstellungen
 SettingsUpdate: Einstellungen wurden gespeichert.
 
-SheetExercise: Aufgabenstellung
-SheetHint: Hinweise
-SheetSolution: Lösung
-SheetMarking: Korrekturhinweise
-
 MultiFileUploadInfo: (Mehrere Dateien mit Shift oder Strg auswählen)
 
 NrColumn: Nr

src/Handler/Sheet.hs

@@ -592,7 +592,7 @@ getSCorrR, postSCorrR :: TermId
                       -> Text -- ^ Sheet name
                       -> Handler Html
 postSCorrR = getSCorrR
-getSCorrR tid@(unTermKey -> tident) csh shn = do
+getSCorrR tid csh shn = do
   Entity shid Sheet{..} <- runDB $ fetchSheet tid csh shn
 
   ((res,formWidget), formEnctype) <- runFormPost . identForm FIDcorrectors . renderAForm FormStandard $ formToAForm (correctorForm shid) <* submitButton
@@ -606,10 +606,10 @@ getSCorrR tid@(unTermKey -> tident) csh shn = do
     FormMissing -> return ()
 
   let
-    formTitle = MsgSheetCorrectorsTitle tident csh shn
+    formTitle = MsgSheetCorrectorsTitle tid csh shn
     formText  = Nothing :: Maybe (SomeMessage UniWorX)
     actionUrl = CSheetR tid csh shn SCorrR
     -- actionUrl = CSheetR tid csh shn SShowR
   defaultLayout $ do
-    setTitleI $ MsgSheetCorrectorsTitle tident csh shn
+    setTitleI $ MsgSheetCorrectorsTitle tid csh shn
     $(widgetFile "formPageI18n")

src/Model/Types.hs

@@ -234,7 +234,7 @@ data Theme       --Simply add Themes to this type only. CamelCase will be conver
   = Default
   | Lavender
   | NeutralBlue
-  | AberdeenReds
+  | AberdeenReds -- e.g. turned into "theme--aberdeen-reds"
   | MossGreen
   | SkyLove
   deriving (Eq,Ord,Bounded,Enum)