fix(fill): exam prefill dates work now

This commit is contained in:
Steffen Jost 2024-12-04 11:58:50 +01:00 committed by Sarah Vaupel
parent 5f3d8a88e2
commit a1d7f16427
2 changed files with 8 additions and 8 deletions

View File

@ -22,5 +22,5 @@ job-lms-qualifications-dequeue-hour: 4
job-mode:
tag: offload
job-workers: 2
job-flush-interval: 10
job-workers: 1
job-flush-interval: 600

View File

@ -1234,13 +1234,13 @@ fillDb = do
, examBonusRule = Nothing
, examOccurrenceRule = ExamRoomManual
, examExamOccurrenceMapping = Nothing
, examVisibleFrom = jtt TermDayStart 0 Nothing toMidnight
, examRegisterFrom = jtt TermDayStart 0 Nothing toMidnight
, examRegisterTo = jtt TermDayLectureStart (-1) Nothing toMidnight
, examDeregisterUntil = jtt TermDayLectureStart (-5) (Just Monday) toMidnight
, examPublishOccurrenceAssignments = Nothing
, examStart = Just $ toTimeOfDay 16 0 0 secondDay
, examEnd = Just $ toTimeOfDay 16 30 0 secondDay
, examVisibleFrom = jtt TermDayLectureStart 0 Nothing toMidnight
, examRegisterFrom = jtt TermDayLectureStart 0 Nothing toMidnight
, examRegisterTo = jtt TermDayLectureStart 14 Nothing toMidnight
, examDeregisterUntil = jtt TermDayLectureStart 21 Nothing toMidnight
, examStart = jtt TermDayLectureStart 27 Nothing $ toTimeOfDay 16 0 0
, examEnd = jtt TermDayLectureStart 27 Nothing $ toTimeOfDay 16 30 0
, examFinished = Nothing
, examPartsFrom = Nothing
, examClosed = Nothing