From 84be8ee7e597ea37beee8e8d1381262fcd03741c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 17 Oct 2018 10:16:08 +0200 Subject: [PATCH] Fix db.hs --- db.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/db.hs b/db.hs index adf008619..dc5ed8f3d 100755 --- a/db.hs +++ b/db.hs @@ -195,8 +195,8 @@ fillDb = do let sdInf = StudyTermsKey' 79 sdMath = StudyTermsKey' 105 - repsert sdInf $ StudyTerms 79 (Just "Inf") (Just "Informatik") - repsert sdMath $ StudyTerms 105 (Just "M" ) (Just "Mathematik") + repsert sdInf $ StudyTerms 79 (Just "IfI") (Just "Institut für Informatik") + repsert sdMath $ StudyTerms 105 (Just "MI" ) (Just "Mathematisches Institut") -- FFP ffp <- insert' Course { courseName = "Fortgeschrittene Funktionale Programmierung" @@ -217,11 +217,11 @@ fillDb = do void . insert $ DegreeCourse ffp sdMst sdInf void . insert $ Lecturer jost ffp void . insert $ Lecturer gkleen ffp - sheetkey <- insert $ Sheet ffp "AdHoc-Gruppen" Nothing NotGraded (Arbitrary 3) Nothing Nothing now now Nothing Nothing (Upload True) + sheetkey <- insert $ Sheet ffp "AdHoc-Gruppen" Nothing NotGraded (Arbitrary 3) Nothing Nothing now now Nothing Nothing (Upload True) UserSubmissions insert_ $ SheetEdit gkleen now sheetkey - sheetkey <- insert $ Sheet ffp "Feste Gruppen" Nothing NotGraded RegisteredGroups Nothing Nothing now now Nothing Nothing (Upload True) + sheetkey <- insert $ Sheet ffp "Feste Gruppen" Nothing NotGraded RegisteredGroups Nothing Nothing now now Nothing Nothing (Upload True) UserSubmissions insert_ $ SheetEdit gkleen now sheetkey - sheetkey <- insert $ Sheet ffp "Keine Gruppen" Nothing NotGraded NoGroups Nothing Nothing now now Nothing Nothing (Upload True) + sheetkey <- insert $ Sheet ffp "Keine Gruppen" Nothing NotGraded NoGroups Nothing Nothing now now Nothing Nothing (Upload True) UserSubmissions insert_ $ SheetEdit gkleen now sheetkey -- EIP eip <- insert' Course @@ -305,6 +305,7 @@ fillDb = do , sheetVisibleFrom = Just now , sheetActiveFrom = now , sheetActiveTo = (14 * nominalDay) `addUTCTime` now + , sheetSubmissionMode = CorrectorSubmissions , sheetUploadMode = Upload True , sheetHintFrom = Nothing , sheetSolutionFrom = Nothing