diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs index 2539f2c4b..818fbd85f 100644 --- a/test/Database/Fill.hs +++ b/test/Database/Fill.hs @@ -657,7 +657,7 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True - , sheetAuthorshipStatement = Nothing + -- , sheetAuthorshipStatement = Nothing } insert_ $ SheetEdit gkleen now adhoc feste <- insert Sheet @@ -677,7 +677,7 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True - , sheetAuthorshipStatement = Nothing + -- , sheetAuthorshipStatement = Nothing } insert_ $ SheetEdit gkleen now feste keine <- insert Sheet @@ -697,7 +697,7 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True - , sheetAuthorshipStatement = Nothing + -- , sheetAuthorshipStatement = Nothing } insert_ $ SheetEdit gkleen now keine void . insertMany $ map (\u -> CourseParticipant ffp u now Nothing CourseParticipantActive) @@ -732,6 +732,7 @@ fillDb = do , examSynchronicity = Just $ ExamSynchronicityPreset ExamSynchronous , examRequiredEquipment = Just $ ExamRequiredEquipmentPreset ExamRequiredEquipmentNone } + -- , examAuthorshipStatement = Nothing , examStaff = Just "Hofmann" } _ <- insert' Material @@ -942,7 +943,7 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True - , sheetAuthorshipStatement = Nothing + -- , sheetAuthorshipStatement = Nothing } void . insert $ SheetEdit jost now shId when (submissionModeCorrector sheetSubmissionMode) $ @@ -1186,7 +1187,7 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True - , sheetAuthorshipStatement = if shNr == 14 then Just ifiAuthorshipStatement else Nothing + -- , sheetAuthorshipStatement = if shNr == 14 then Just ifiAuthorshipStatement else Nothing } manyUsers' <- shuffleM $ take 1024 manyUsers groupSizes <- getRandomRs (1, 3)