_{MsgTitle}

#{title}

_{MsgSurname}

#{userSurname}

_{MsgFirstName}

#{userFirstName}

_{MsgMatrikelNr}

$maybe matnr <- userMatrikelnummer #{matnr} $nothing _{MsgNoMatrikelKnown} $maybe sex <- guardOn showSex =<< userSex

_{MsgSex}

_{sex}

_{MsgEmailTable}

#{mailtoHtml userEmail} $maybe date <- mRegAt

_{MsgRegisteredSince}

#{date} $if mayRegister

^{regButtonWidget} $maybe _ <- mRegistration

_{MsgCourseDeregisterLecturerTip}

_{MsgStudyTerms}

$if null studies _{MsgNoStudyTermsKnown} $else

_{MsgStudyTermTable}	_{MsgStudyFeatureDegreeTable}	_{MsgStudyFeatureTypeTable}	_{MsgStudyFeatureAgeTable}	_{MsgStudyFeatureValidTable}	_{MsgStudyFeatureUpdateTable} $forall ((Entity _ StudyFeatures{studyFeaturesType, studyFeaturesSemester, studyFeaturesValid, studyFeaturesFirstObserved, studyFeaturesLastObserved}), (Entity _ degree), (Entity _ field)) <- studies
_{field}	_{degree}	_{studyFeaturesType}	#{studyFeaturesSemester}	#{hasTickmark studyFeaturesValid}	$maybe fObs <- studyFeaturesFirstObserved ^{formatTimeRangeW SelFormatDate fObs $ Just studyFeaturesLastObserved} $nothing ^{formatTimeW SelFormatDate studyFeaturesLastObserved}