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

chore(lms): send lms-users delta only

Browse Source
This commit is contained in:
Steffen Jost 2023-05-15 14:39:23 +00:00
parent 231cc00fe9
commit 73fa46e583
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Handler/LMS/Users.hs
View File

@ -10,7 +10,6 @@ module Handler.LMS.Users
) )
where where
-- TODO: needs complete refactoring! Old RESULT templates follows
import Import import Import
@ -158,7 +157,11 @@ getLmsUsersDirectR sid qsh = do
cutoff <- lmsDeletionDate cutoff <- lmsDeletionDate
lms_users <- runDB $ do lms_users <- runDB $ do
qid <- getKeyBy404 $ SchoolQualificationShort sid qsh qid <- getKeyBy404 $ SchoolQualificationShort sid qsh
selectList [LmsUserQualification ==. qid, LmsUserEnded ==. Nothing] [Asc LmsUserStarted, Asc LmsUserIdent] selectList [ LmsUserQualification ==. qid
, LmsUserEnded ==. Nothing
-- , LmsUserReceived ==. Nothing ||. LmsUserResetPin ==. True ||. LmsUserStatus !=. Nothing -- send delta only NOTE: know-how no longer expects delta
] [Asc LmsUserStarted, Asc LmsUserIdent]
{- To avoid exporting unneeded columns, we would need an SqlSelect instance for LmsUserTableCsv; probably not worth it {- To avoid exporting unneeded columns, we would need an SqlSelect instance for LmsUserTableCsv; probably not worth it
Ex.select $ do Ex.select $ do
lmsuser <- Ex.from $ Ex.table @LmsUser lmsuser <- Ex.from $ Ex.table @LmsUser