From 996262c3274d43178d301a406a5fc2afc2e20d64 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Thu, 3 Jun 2021 00:15:50 +0200
Subject: [PATCH] chore: set authorship statements in db-fill

---
 test/Database/Fill.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs
index f510ab53c..216c915a4 100644
--- a/test/Database/Fill.hs
+++ b/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)