fix(avs): fix superfluous quotes for matriculation numbers on newly created users
This commit is contained in:
parent
622c01b9be
commit
ff9014ce05
@ -537,7 +537,7 @@ createAvsUserById muid api = do
|
||||
, audEmail = persMail & fromMaybe ("AVSNO:" <> cpi ^. _avsInfoPersonNo . from _CI)
|
||||
, audIdent = persMail & fromMaybe ("AVSID:" <> ciShow api )
|
||||
, audAuth = maybe AuthKindNoLogin (const AuthKindLDAP) internalPersNo
|
||||
, audMatriculation = cpi ^. _avsInfoPersonNo & Just . tshow
|
||||
, audMatriculation = cpi ^. _avsInfoPersonNo & Just
|
||||
, audSex = Nothing
|
||||
, audBirthday = cpi ^. _avsInfoDateOfBirth
|
||||
, audMobile = cpi ^. _avsInfoPersonMobilePhoneNo
|
||||
|
||||
Loading…
Reference in New Issue
Block a user