$newline never $# SPDX-FileCopyrightText: 2022 Gregor Kleen ,Sarah Vaupel ,Steffen Jost ,Winnie Ros $# $# SPDX-License-Identifier: AGPL-3.0-or-later
_{MsgIdent}
#{userIdent}
_{MsgAuthModeSet}
_{userAuthentication} $maybe avs <- avsId
_{MsgAvsPersonNo} ^{messageTooltip tooltipAvsPersNo}
#{view _userAvsNoPerson avs} $maybe avsError <- view _userAvsLastSynchError avs
_{MsgLastAvsSynchError}
#{avsError}
_{MsgLastAvsSynchronisation}
^{formatTimeW SelFormatDateTime (view _userAvsLastSynch avs)}
_{MsgNameSet}
^{nameWidget userDisplayName userSurname} $maybe matnr <- userMatrikelnummer
_{MsgTableMatrikelNr}
#{matnr} $maybe sex <- userSex
_{MsgTableSex}
_{sex} $maybe bday <- userBirthday
_{MsgTableBirthday}
^{formatTimeW SelFormatDate bday}
_{MsgPrefersPostalExp}
$if userPrefersPostal /= actualPrefersPostal ^{messageTooltip tooltipInvalidEmail} # #{iconLetterOrEmail userPrefersPostal} $maybe addr <- actualPostAddress
_{MsgAdminUserPostAddress}
#{isAutomatic postalAutomatic} # #{addr} $if (not postalAutomatic) $maybe postUpdate <- userPostLastUpdate
_{MsgUserPostLastUpdate}
^{formatTimeW SelFormatDateTime postUpdate}
_{MsgUserDisplayEmail}
$maybe primaryEmail <- actualDisplayEmail #{isAutomatic emailAutomatic} # #{mailtoHtml primaryEmail} $nothing ^{messageTooltip tooltipInvalidEmail} # #{mailtoHtml userDisplayEmail} $if Just userEmail /= actualDisplayEmail
_{MsgUserSystemEmail}
$if not (validEmail' userEmail) ^{messageTooltip tooltipInvalidEmail} # #{userEmail}
_{MsgAdminUserPinPassword}
$maybe pass <- userPinPassword #{pass} $nothing _{MsgAdminUserNoPassword} $maybe telephonenr <- userTelephone
_{MsgUserTelephone}
#{telephonenr} $maybe mobilenr <- userMobile
_{MsgUserMobile}
#{mobilenr} $maybe companyDepartment <- userCompanyDepartment
_{MsgCompanyDepartment}
#{companyDepartment} $maybe companyPersonalNumber <- userCompanyPersonalNumber
_{MsgCompanyPersonalNumber}
#{companyPersonalNumber} $if not $ null companies
_{MsgCompany}
^{toWgt (mconcat companies)} $if numSupervisors > 0
_{MsgProfileSupervisor} $if numSupervisors > 3 \ #{numSupervisors}
^{mconcat supervisors} $if numSupervisees > 0
_{MsgProfileSupervisee} $if length supervisees > 3 \ #{numSupervisees}
^{mconcat supervisees} $if showAdminInfo
_{MsgUserCreated}
^{formatTimeW SelFormatDateTime userCreated}
_{MsgLastLogin}
$maybe llogin <- userLastAuthentication ^{formatTimeW SelFormatDateTime llogin} $nothing _{MsgNeverSet}
_{MsgProfileLastLdapSynchronisation}
$maybe lsync <- userLastLdapSynchronisation ^{formatTimeW SelFormatDateTime lsync} $nothing _{MsgNeverSet} $maybe pKey <- userLdapPrimaryKey
_{MsgProfileLdapPrimaryKey}
#{pKey}
_{MsgTokensLastReset}
$maybe lastInvalidated <- userTokensIssuedAfter ^{formatTimeW SelFormatDateTime lastInvalidated} $nothing _{MsgNeverSet} $forall (function, schools) <- Map.toList functions
_{function}