From 8165892b2e4f945780bb8420cfc4eed50fdd294d Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Tue, 7 Nov 2023 11:35:12 +0000 Subject: [PATCH] fix(lms): mark as ended only if not seen for at least one day --- 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 586b2404e..5ff83df0d 100644 --- a/src/Jobs/Handler/LMS.hs +++ b/src/Jobs/Handler/LMS.hs @@ -347,6 +347,7 @@ dispatchJobLmsReports qid = JobHandlerAtomic act 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.&&. luser E.^. LmsUserReceived E.<= E.justVal (addUTCTime (-nominalDay) now) E.&&. E.notExists (do lreport <- E.from $ E.table @LmsReport E.where_ $ lreport E.^. LmsReportIdent E.==. luser E.^. LmsUserIdent