From 73fa46e583b5c837f94bc29ee620f6c445708b2b Mon Sep 17 00:00:00 2001
From: Steffen Jost <S.Jost@Fraport.de>
Date: Mon, 15 May 2023 14:39:23 +0000
Subject: [PATCH] chore(lms): send lms-users delta only

---
 src/Handler/LMS/Users.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/Handler/LMS/Users.hs b/src/Handler/LMS/Users.hs
index 97ab76850..395ad5d54 100644
--- a/src/Handler/LMS/Users.hs
+++ b/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