fix(fill): exam prefill dates work now
This commit is contained in:
parent
5f3d8a88e2
commit
a1d7f16427
@ -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
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user