fix(ldap): update phone numbers and company data from ldap

2021-12-21 16:40:52 +01:00 · 2021-12-21 16:40:52 +01:00 · 991ee9c704
commit 991ee9c704
parent 4d2c1b5de7
1 changed files with 5 additions and 1 deletions
--- 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 ]