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

fix(lms): report log did not match qualification

Browse Source
This commit is contained in:
Steffen Jost 2023-11-08 15:56:35 +00:00
parent 8500e72dee
commit 390ff317ea
1 changed files with 21 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -396,7 +396,7 @@ dispatchJobLmsReports qid = JobHandlerAtomic act
return (LmsReportLog return (LmsReportLog
E.<# (lreport E.^. LmsReportQualification) E.<# (lreport E.^. LmsReportQualification)
E.<&> (lreport E.^. LmsReportIdent ) E.<&> (lreport E.^. LmsReportIdent )
E.<&> E.nothing E.<&> (lreport E.^. LmsReportDate )
E.<&> (lreport E.^. LmsReportResult ) E.<&> (lreport E.^. LmsReportResult )
E.<&> (lreport E.^. LmsReportLock ) E.<&> (lreport E.^. LmsReportLock )
E.<&> (lreport E.^. LmsReportTimestamp ) E.<&> (lreport E.^. LmsReportTimestamp )
@ -404,6 +404,7 @@ dispatchJobLmsReports qid = JobHandlerAtomic act
E.insertSelect $ do E.insertSelect $ do
lrl <- E.from $ E.table @LmsReportLog lrl <- E.from $ E.table @LmsReportLog
E.where_ $ E.not_ (lrl E.^. LmsReportLogMissing) E.where_ $ E.not_ (lrl E.^. LmsReportLogMissing)
E.&&. lrl E.^. LmsReportLogQualification E.==. E.val qid
E.&&. E.notExists (do E.&&. E.notExists (do
lreport <- E.from $ E.table @LmsReport lreport <- E.from $ E.table @LmsReport
E.where_ $ lreport E.^. LmsReportQualification E.==. E.val qid E.where_ $ lreport E.^. LmsReportQualification E.==. E.val qid
@ -418,7 +419,7 @@ dispatchJobLmsReports qid = JobHandlerAtomic act
return (LmsReportLog return (LmsReportLog
E.<# (lrl E.^. LmsReportLogQualification) E.<# (lrl E.^. LmsReportLogQualification)
E.<&> (lrl E.^. LmsReportLogIdent ) E.<&> (lrl E.^. LmsReportLogIdent )
E.<&> (lrl E.^. LmsReportLogDate ) E.<&> E.nothing
E.<&> (lrl E.^. LmsReportLogResult ) E.<&> (lrl E.^. LmsReportLogResult )
E.<&> (lrl E.^. LmsReportLogLock ) E.<&> (lrl E.^. LmsReportLogLock )
E.<&> E.val now E.<&> E.val now