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