fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(lms): mark as ended only if not seen for at least one day

Browse Source
This commit is contained in:
Steffen Jost 2023-11-07 11:35:12 +00:00
parent d2b20674f5
commit 8165892b2e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Jobs/Handler/LMS.hs
View File

@ -347,6 +347,7 @@ dispatchJobLmsReports qid = JobHandlerAtomic act
E.&&. E.isNothing (luser E.^. LmsUserEnded ) E.&&. E.isNothing (luser E.^. LmsUserEnded )
E.&&. E.isJust (luser E.^. LmsUserStatus ) -- status is decided 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.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 E.&&. E.notExists (do
lreport <- E.from $ E.table @LmsReport lreport <- E.from $ E.table @LmsReport
E.where_ $ lreport E.^. LmsReportIdent E.==. luser E.^. LmsUserIdent E.where_ $ lreport E.^. LmsReportIdent E.==. luser E.^. LmsUserIdent