From 991ee9c704dea31e65bb347af582f8a81a72aca4 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Tue, 21 Dec 2021 16:40:52 +0100
Subject: [PATCH] fix(ldap): update phone numbers and company data from ldap

---
 src/Foundation/Yesod/Auth.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Foundation/Yesod/Auth.hs b/src/Foundation/Yesod/Auth.hs
index 436315137..9949e19ce 100644
--- a/src/Foundation/Yesod/Auth.hs
+++ b/src/Foundation/Yesod/Auth.hs
@@ -270,12 +270,16 @@ upsertCampusUser upsertMode ldapData = do
       , ..
       }
     userUpdate =  [ 
-                  -- UserDisplayName             =. userDisplayName
+                  -- UserDisplayName             =. userDisplayName -- SJ asks: why is the display name not updated?
                     UserFirstName               =. userFirstName
                   , UserSurname                 =. userSurname                  
                   , UserEmail                   =. userEmail                  
                   , UserLastLdapSynchronisation =. Just now
                   , UserLdapPrimaryKey          =. userLdapPrimaryKey
+                  , UserMobile                  =. userMobile
+                  , UserTelephone               =. userTelephone
+                  , UserCompanyPersonalNumber   =. userCompanyPersonalNumber
+                  , UserCompanyDepartment       =. userCompanyDepartment
                   ] ++
                   [ UserLastAuthentication =. Just now | isLogin ]