chore(lms): send lms-users delta only

src/Handler/LMS/Users.hs

@@ -10,7 +10,6 @@ module Handler.LMS.Users
   )
   where
 
--- TODO: needs complete refactoring! Old RESULT templates follows
 
 import Import
 
@@ -158,7 +157,11 @@ getLmsUsersDirectR sid qsh = do
   cutoff <- lmsDeletionDate
   lms_users <- runDB $ do
     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
       Ex.select $ do
         lmsuser <- Ex.from $ Ex.table @LmsUser