_{MsgIdent}

#{userIdent}

_{MsgAuthModeSet}

_{userAuthentication} $maybe avs <- avsId $with avsNoPers <- tshow (view _userAvsNoPerson avs)

_{MsgAvsPersonNo} ^{messageTooltip tooltipAvsPersNo} $maybe matnr <- userMatrikelnummer $if matnr /= avsNoPers ^{messageTooltip tooltipAvsPersNoDiffers}

^{modalAccess (text2widget avsNoPers) (text2widget avsNoPers) False (AdminAvsUserR cID)} $maybe matnr <- userMatrikelnummer $if matnr /= avsNoPers / #{matnr} $maybe avsError <- view _userAvsLastSynchError avs

_{MsgLastAvsSynchError}

#{avsError}

_{MsgLastAvsSynchronisation}

^{formatTimeW SelFormatDateTime (view _userAvsLastSynch avs)} $nothing $maybe matnr <- userMatrikelnummer

_{MsgTableMatrikelNr} ^{messageTooltip tooltipAvsPersNo} ^{usrAutomatic CU_UA_UserMatrikelnummer}

^{modalAccess (text2widget matnr) (text2widget matnr) False (AdminAvsUserR cID)}

_{MsgNameSet} ^{usrAutomatic CU_UA_UserDisplayName}

^{nameWidget userDisplayName userSurname} $maybe sex <- userSex

_{MsgTableSex}

_{sex} $maybe bday <- userBirthday

_{MsgTableBirthday} ^{usrAutomatic CU_UA_UserBirthday}

^{formatTimeW SelFormatDate bday}

_{MsgPrefersPostalExp}

$if userPrefersPostal /= actualPrefersPostal ^{messageTooltip tooltipInvalidEmail} #{iconLetterOrEmail userPrefersPostal} $maybe addr <- actualPostAddress

_{MsgAdminUserPostAddress} # ^{updateAutomatic postalAutomatic} $if isNothing userPostAddress ^{addressLinkdIcon}

#{addr} $if (not postalAutomatic) $maybe postUpdate <- userPostLastUpdate

_{MsgUserPostLastUpdate}

^{formatTimeW SelFormatDateTime postUpdate}

_{MsgUserDisplayEmail} # ^{updateAutomatic emailAutomatic}

$maybe primaryEmail <- actualDisplayEmail #{mailtoHtml primaryEmail} $nothing ^{messageTooltip tooltipInvalidEmail} $if userDisplayEmail == "" _{MsgUtilNoneSet} $else #{mailtoHtml userDisplayEmail} $if Just userEmail /= actualDisplayEmail

_{MsgUserSystemEmail}

$if not (validEmail' userEmail) ^{messageTooltip tooltipInvalidEmail} #{mailtoHtml userEmail}

_{MsgAdminUserPinPassword} ^{usrAutomatic CU_UA_UserPinPassword}

$maybe pass <- userPinPassword #{pass} $nothing _{MsgAdminUserNoPassword} $maybe telephonenr <- userTelephone

_{MsgUserTelephone}

#{telephonenr} $maybe mobilenr <- userMobile

_{MsgUserMobile} ^{usrAutomatic CU_UA_UserMobile}

#{mobilenr} $maybe companyDepartment <- userCompanyDepartment

_{MsgCompanyDepartment}

#{companyDepartment} $maybe companyPersonalNumber <- userCompanyPersonalNumber

_{MsgCompanyPersonalNumber} ^{usrAutomatic CU_UA_UserCompanyPersonalNumber}

#{companyPersonalNumber} $maybe compWgt <- companies

_{MsgCompany}

^{compWgt} $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}

#{ssh} $if not $ null lecture_corrector

_{MsgProfileCorrector}

#{tid}-#{ssh}-#{csh} $if not $ null studies

_{MsgAdminFeaturesHeading}

_{MsgTableStudyTerm}	_{MsgTableStudyFeatureDegree}	_{MsgTableStudyFeatureType}	_{MsgTableStudyFeatureAge}	_{MsgTableStudyFeatureValid}	_{MsgTableStudyFeatureUpdate} $forall ((Entity _ StudyFeatures{studyFeaturesType, studyFeaturesSemester, studyFeaturesValid, studyFeaturesFirstObserved, studyFeaturesLastObserved}), (Entity _ degree), (Entity _ field)) <- studies	_{field}	_{degree}	_{studyFeaturesType}	#{studyFeaturesSemester}	#{hasTickmark studyFeaturesValid}	$maybe fObs <- studyFeaturesFirstObserved ^{formatTimeRangeW SelFormatDateTime fObs $ Just studyFeaturesLastObserved} $nothing ^{formatTimeW SelFormatDateTime studyFeaturesLastObserved} ^{supervisorsWgt} ^{superviseesWgt} _{MsgProfileQualifications} ^{qualificationsTable} ^{maybeTable MsgProfileCourses ownedCoursesTable} ^{maybeTable MsgProfileCourseParticipations enrolledCoursesTable} ^{maybeTable MsgProfileSubmissionGroups submissionGroupTable} ^{maybeTable' MsgProfileSubmissions Nothing (Just (msg2widget MsgProfileGroupSubmissionDates)) submissionTable} ^{maybeTable' MsgTableCorrector Nothing (Just (msg2widget MsgProfileCorrectorRemark <> simpleLinkI MsgProfileCorrections CorrectionsR)) correctionsTable} ^{profileRemarks}