From a84812640f02981875275c96e37338de4ab49996 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Tue, 26 Sep 2023 09:55:16 +0000 Subject: [PATCH] fix(lms): do not mark lms users with open status as ended --- src/Jobs/Handler/LMS.hs | 1 + 1 file changed, 1 insertion(+) 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