chore: set authorship statements in db-fill

test/Database/Fill.hs

@@ -657,6 +657,8 @@ fillDb = do
     , sheetAnonymousCorrection = True
     , sheetRequireExamRegistration = Nothing
     , sheetAllowNonPersonalisedSubmission = True
+    , sheetAuthorshipStatementRequired = False
+    , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement
     }
   insert_ $ SheetEdit gkleen now adhoc
   feste <- insert Sheet
@@ -676,6 +678,8 @@ fillDb = do
     , sheetAnonymousCorrection = True
     , sheetRequireExamRegistration = Nothing
     , sheetAllowNonPersonalisedSubmission = True
+    , sheetAuthorshipStatementRequired = False
+    , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement
     }
   insert_ $ SheetEdit gkleen now feste
   keine <- insert Sheet
@@ -695,6 +699,8 @@ fillDb = do
     , sheetAnonymousCorrection = True
     , sheetRequireExamRegistration = Nothing
     , sheetAllowNonPersonalisedSubmission = True
+    , sheetAuthorshipStatementRequired = False
+    , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement
     }
   insert_ $ SheetEdit gkleen now keine
   void . insertMany $ map (\u -> CourseParticipant ffp u now Nothing CourseParticipantActive)
@@ -939,6 +945,8 @@ fillDb = do
       , sheetAnonymousCorrection = True
       , sheetRequireExamRegistration = Nothing
       , sheetAllowNonPersonalisedSubmission = True
+      , sheetAuthorshipStatementRequired = False
+      , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement
       }
     void . insert $ SheetEdit jost now shId
     when (submissionModeCorrector sheetSubmissionMode) $
@@ -1182,6 +1190,8 @@ fillDb = do
       , sheetAnonymousCorrection = True
       , sheetRequireExamRegistration = Nothing
       , sheetAllowNonPersonalisedSubmission = True
+      , sheetAuthorshipStatementRequired = shNr == 14
+      , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement
       }
     manyUsers' <- shuffleM $ take 1024 manyUsers
     groupSizes <- getRandomRs (1, 3)