chore(mail): add link to root to welcome letter

messages/uniworx/categories/send/send_notifications/de-de-formal.msg

@@ -130,6 +130,8 @@ UserAuthModePWHashChangedToLDAP: Sie können sich nun mit Ihrer Fraport AG Kennu
 UserAuthModeLDAPChangedToPWHash: Sie können sich nun mit einer FRADrive-internen Kennung einloggen
 AuthPWHashTip: Sie müssen nun das mit "FRADrive-Login" beschriftete Login-Formular verwenden. Stellen Sie bitte sicher, dass Sie ein Passwort gesetzt haben, bevor Sie versuchen sich anzumelden.
 PasswordResetEmailIncoming: Einen Link um ihr Passwort zu setzen bzw. zu ändern bekommen Sie, aus Sicherheitsgründen, in einer separaten E-Mail.
+MailFradrive !ident-ok: FRADrive
+MailBodyFradrive: die Führerscheinverwaltungsapp der Fraport AG.
 
 #userRightsUpdate.hs + templates
 MailSubjectUserRightsUpdate name@Text: Berechtigungen für #{name} aktualisiert

messages/uniworx/categories/send/send_notifications/en-eu.msg

@@ -130,6 +130,8 @@ UserAuthModePWHashChangedToLDAP: You can now log in to FRADrive using your Frapo
 UserAuthModeLDAPChangedToPWHash: You can now log in using your FRADrive-internal account
 AuthPWHashTip: You now need to use the login form labeled "FRADrive login". Please ensure that you have already set a password when you try to log in.
 PasswordResetEmailIncoming: For security reasons you will receive a link to the page on which you can set and later change your password in a separate email.
+MailFradrive: FRADrive
+MailBodyFradrive: the apron driving licence management app of Fraport AG.
 
 #userRightsUpdate.hs + templates
 MailSubjectUserRightsUpdate name: Permissions for #{name} changed

src/Jobs/Handler/SendNotification/UserAuthModeUpdate.hs

@@ -9,6 +9,7 @@ import Import
 import Auth.PWHash (PWHashMessage(..))
 
 import Handler.Utils.Mail
+-- import Handler.Utils.Widgets (simpleLink, simpleLinkI)
 import Jobs.Handler.SendNotification.Utils
 
 import Text.Hamlet
@@ -21,6 +22,6 @@ dispatchNotificationUserAuthModeUpdate  nUser _nOriginalAuthMode jRecipient = us
     setSubjectI MsgMailSubjectUserAuthModeUpdate
 
     editNotifications <- ihamletSomeMessage <$> mkEditNotifications jRecipient
-
+    -- let linkRoot :: Widget = simpleLink (text2widget "FRADrive")  NewsR -- TODO: use MsgMailFradrive instead
     addHtmlMarkdownAlternatives ($(ihamletFile "templates/mail/userAuthModeUpdate.hamlet") :: HtmlUrlI18n (SomeMessage UniWorX) (Route UniWorX))
 

templates/mail/userAuthModeUpdate.hamlet

@@ -19,6 +19,11 @@ $newline never
           _{SomeMessage MsgUserAuthModePWHashChangedToLDAP}
         $of AuthPWHash _
           _{SomeMessage MsgUserAuthModeLDAPChangedToPWHash}
+    <p>
+      <a href=@{NewsR}>
+        FRADrive 
+      _{SomeMessage MsgMailBodyFradrive}
+
     $if is _AuthPWHash userAuthentication
       <p>
         _{SomeMessage MsgAuthPWHashTip}