From ef358baeabe1eb549d4707ad970424a4c4a54b58 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Fri, 26 Nov 2021 14:37:40 +0100 Subject: [PATCH] chore(user): introduce get-synced default for ExamOffice users --- models/users.model | 5 +++-- src/Handler/Utils/Users.hs | 1 + 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/models/users.model b/models/users.model index 707da5e2f..476451943 100644 --- a/models/users.model +++ b/models/users.model @@ -53,8 +53,9 @@ UserSystemFunction UniqueUserSystemFunction user function deriving Generic UserExamOffice - user UserId - field StudyTermsId + user UserId + field StudyTermsId + getSynced Bool default=true -- whether synced status should be displayed for exam results by default UniqueUserExamOffice user field deriving Generic UserSchool -- Managed by users themselves, encodes "schools of interest" diff --git a/src/Handler/Utils/Users.hs b/src/Handler/Utils/Users.hs index f851d4fc9..139485552 100644 --- a/src/Handler/Utils/Users.hs +++ b/src/Handler/Utils/Users.hs @@ -469,6 +469,7 @@ assimilateUser newUserId oldUserId = mapReaderT execWriterT $ do return $ UserExamOffice E.<# E.val newUserId E.<&> (userExamOffice E.^. UserExamOfficeField) + E.<&> (userExamOffice E.^. UserExamOfficeGetSynced) ) (\_current _excluded -> []) deleteWhere [ UserExamOfficeUser ==. oldUserId ]