From 4d432305a7ee5dbd001fc05dc7f59922274b611d Mon Sep 17 00:00:00 2001
From: Steffen Jost <S.Jost@Fraport.de>
Date: Wed, 10 May 2023 09:39:34 +0000
Subject: [PATCH] chore(letter): fix wording in expiry letter

---
 src/Utils/Print/ExpireQualification.hs | 6 +++---
 templates/letter/fraport_f_expiry.md   | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Utils/Print/ExpireQualification.hs b/src/Utils/Print/ExpireQualification.hs
index fef6407e4..a07f50c7e 100644
--- a/src/Utils/Print/ExpireQualification.hs
+++ b/src/Utils/Print/ExpireQualification.hs
@@ -65,14 +65,14 @@ instance MDLetter LetterExpireQualificationF where
     let isSupervised = rcvrId /= leqfHolderID
     in mkMeta $
       guardMonoid isSupervised
-      [ toMeta "supervisor" userDisplayName
-      , toMeta "de-opening" ("Sehr geehrte Damen und Herren,"::Text)
-      , toMeta "en-opening" ("Dear Sir or Madam,"::Text)
+      [ toMeta "supervisor" userDisplayName      
       ] <>
       [ toMeta "lang"           lang
       , toMeta "licenceholder"  leqfHolderDN
       , mbMeta "expiry"         (format SelFormatDate <$> leqfExpiry)      
       , mbMeta "licence-url"    leqfUrl
+      , toMeta "de-opening" $ bool ("Guten Tag " <> leqfHolderDN <> ",") "Sehr geehrte Damen und Herren," isSupervised
+      , toMeta "en-opening" $ bool ("Dear "      <> leqfHolderDN <> ",") "Dear supervisor,"               isSupervised
       ] 
 
   getPJId LetterExpireQualificationF{..} =
diff --git a/templates/letter/fraport_f_expiry.md b/templates/letter/fraport_f_expiry.md
index 542eaf959..5d35d6743 100644
--- a/templates/letter/fraport_f_expiry.md
+++ b/templates/letter/fraport_f_expiry.md
@@ -84,7 +84,7 @@ Hierfür wenden Sie sich bitte an die Fahrerausbildung der Fraport AG unter:
 
 Telefon
   
-  : $phone$
+  : [$phone$](tel:$phone$)
 
 Email
   
@@ -133,7 +133,7 @@ Please contact the Fraport driving school team, if you want to book a course:
 
 Phone
   
-  : $phone$
+  : [$phone$](tel:$phone$)
 
 Email