fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(letter): fix wording in expiry letter

Browse Source
This commit is contained in:
Steffen Jost 2023-05-10 09:39:34 +00:00
parent ecd6095dc9
commit 4d432305a7
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Utils/Print/ExpireQualification.hs
View File

@ -65,14 +65,14 @@ instance MDLetter LetterExpireQualificationF where
let isSupervised = rcvrId /= leqfHolderID let isSupervised = rcvrId /= leqfHolderID
in mkMeta $ in mkMeta $
guardMonoid isSupervised guardMonoid isSupervised
[ toMeta "supervisor" userDisplayName [ toMeta "supervisor" userDisplayName
, toMeta "de-opening" ("Sehr geehrte Damen und Herren,"::Text)
, toMeta "en-opening" ("Dear Sir or Madam,"::Text)
] <> ] <>
[ toMeta "lang" lang [ toMeta "lang" lang
, toMeta "licenceholder" leqfHolderDN , toMeta "licenceholder" leqfHolderDN
, mbMeta "expiry" (format SelFormatDate <$> leqfExpiry) , mbMeta "expiry" (format SelFormatDate <$> leqfExpiry)
, mbMeta "licence-url" leqfUrl , 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{..} = getPJId LetterExpireQualificationF{..} =

4
templates/letter/fraport_f_expiry.md
View File

@ -84,7 +84,7 @@ Hierfür wenden Sie sich bitte an die Fahrerausbildung der Fraport AG unter:
Telefon Telefon
: $phone$ : [$phone$](tel:$phone$)
Email Email
@ -133,7 +133,7 @@ Please contact the Fraport driving school team, if you want to book a course:
Phone Phone
: $phone$ : [$phone$](tel:$phone$)
Email Email