diff --git a/src/Auth/LDAP.hs b/src/Auth/LDAP.hs index 1990b40a3..2019e2d37 100644 --- a/src/Auth/LDAP.hs +++ b/src/Auth/LDAP.hs @@ -59,8 +59,10 @@ findUser conf@LdapConf{..} ldap ident retAttrs = fromMaybe [] <$> findM (assertM [ ldapUserEmail' Ldap.:= Text.encodeUtf8 ident' | ident' <- [ident, [st|#{ident}@lmu.de|], [st|#{ident}@fraport.de|]] , ldapUserEmail' <- toList ldapUserEmail + -- ] ++ + -- [ ldapUserDisplayName Ldap.:= Text.encodeUtf8 ident ] ++ - [ ldapUserDisplayName Ldap.:= Text.encodeUtf8 ident + [ ldapUserFraportPersonalnummer Ldap.:= Text.encodeUtf8 ident -- for Fraport, userDisplayname has pattern "Surname, Firstnames" ] findUserMatr :: LdapConf -> Ldap -> Text -> [Ldap.Attr] -> IO [Ldap.SearchEntry]