diff --git a/models/exams.model b/models/exams.model index 1c79e1f7f..ded7124b6 100644 --- a/models/exams.model +++ b/models/exams.model @@ -20,6 +20,7 @@ Exam examMode ExamMode staff Text Maybe partsFrom UTCTime Maybe +-- authorshipStatement AuthorshipStatementDefinitionId Maybe UniqueExam course name deriving Generic ExamPart diff --git a/src/Handler/Exam/Edit.hs b/src/Handler/Exam/Edit.hs index 5ecffe1f0..875e99025 100644 --- a/src/Handler/Exam/Edit.hs +++ b/src/Handler/Exam/Edit.hs @@ -60,6 +60,7 @@ postEEditR tid ssh csh examn = do , examGradingMode = efGradingMode , examDescription = efDescription , examExamMode = efExamMode + -- , examAuthorshipStatement = Nothing -- TODO , examStaff = efStaff , examPartsFrom = efPartsFrom } diff --git a/src/Handler/Exam/New.hs b/src/Handler/Exam/New.hs index 4c20fe692..09b8a6dbe 100644 --- a/src/Handler/Exam/New.hs +++ b/src/Handler/Exam/New.hs @@ -49,6 +49,7 @@ postCExamNewR tid ssh csh = do , examPublicStatistics = efPublicStatistics , examDescription = efDescription , examExamMode = efExamMode + -- , examAuthorshipStatement = Nothing -- TODO , examStaff = efStaff , examPartsFrom = efPartsFrom }