diff --git a/src/Jobs/Handler/LMS.hs b/src/Jobs/Handler/LMS.hs index fd05322f6..42105c664 100644 --- a/src/Jobs/Handler/LMS.hs +++ b/src/Jobs/Handler/LMS.hs @@ -329,6 +329,7 @@ dispatchJobLmsReports qid = JobHandlerAtomic act E.set luser [ LmsUserEnded E.=. E.justVal now ] E.where_ $ E.val qid E.==. luser E.^. LmsUserQualification E.&&. E.isNothing (luser E.^. LmsUserEnded ) + E.&&. E.isJust (luser E.^. LmsUserStatus ) -- status is decided E.&&. E.isJust (luser E.^. LmsUserReceived) -- seen before, for otherwise it might not have been started yet E.&&. E.notExists (do lreport <- E.from $ E.table @LmsReport