From 2b745a452002bbd510a23a30a2759814d09ce4dc Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 22 Mar 2023 15:23:23 +0000 Subject: [PATCH] chore(renewal): adjust email and letter content, encrypt with examinee password only --- .../uniworx/categories/qualification/de-de-formal.msg | 4 ++-- messages/uniworx/categories/qualification/en-eu.msg | 4 ++-- src/Utils/Print.hs | 2 +- templates/letter/fraport_renewal.md | 8 ++++---- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/messages/uniworx/categories/qualification/de-de-formal.msg b/messages/uniworx/categories/qualification/de-de-formal.msg index 9ee9875a8..637f89ce7 100644 --- a/messages/uniworx/categories/qualification/de-de-formal.msg +++ b/messages/uniworx/categories/qualification/de-de-formal.msg @@ -69,7 +69,7 @@ LmsErrorNoRefreshElearning: Fehler: E-Learning wird nicht automatisch gestartet, MailSubjectQualificationRenewal qname@Text: Qualifikation #{qname} muss demnächst erneuert werden MailSubjectQualificationExpiry qname@Text: Qualifikation #{qname} läuft demnächst ab MailSubjectQualificationExpired qname@Text: Qualifikation #{qname} ist ab sofort ungültig -MailBodyQualificationRenewal qname@Text: Sie müssen die Qualifikation #{qname} demnächst durch einen E-Learning Kurs erneuern, siehe Anhang. +MailBodyQualificationRenewal qname@Text: Qualifikation #{qname} muss demnächst durch einen E-Learning erneuert werden. Ansprechpartner werden gebeten, die Anmeldedaten im Anhang vertraulich an den Prüfling zu übermitteln. MailBodyQualificationExpiry: Diese Qualifikation läuft bald ab. Tätigkeiten, welche diese Qualifikation voraussetzen dürfen dann nicht länger ausgeübt werden! MailBodyQualificationExpired: Diese Qualifikation is nun abgelaufen. Tätigkeiten, welche diese Qualifikation voraussetzen dürfen ab sofort nicht länger ausgeübt werden! Es ist möglich, dass die Qualifikation vorzeit ungültig wurde, z.B. wegen erfolgloser Teilnahme an einem verpflichtendem E-Learning. QualificationActExpire: Auslaufend markieren - keine Benachrichtigung zur Erneuerung senden @@ -81,7 +81,7 @@ QualificationActBlock: Entziehen QualificationActUnblock: Entzug löschen QualificationStatusBlock l@QualificationShorthand n@Int m@Int: #{n}/#{m} #{l} entzogen QualificationStatusUnblock l@QualificationShorthand n@Int m@Int: #{n}/#{m} #{l} reaktiviert -LmsRenewalInstructions: Anweisungen zur Verlängerung finden Sie im angehängten PDF. Um Missbrauch zu verhindern wurde das PDF dem von Ihnen in FRADrive hinterlegten PDF-Passwort verschlüsselt. Falls kein PDF-Passwort manuell hinterlegt wurde, ist das PDF-Passwort Ihre Flughafen Ausweisnummer, inklusive Punkt und der Ziffer danach. +LmsRenewalInstructions: Weitere Anweisungen zur Verlängerung finden Sie im angehängten PDF. Um Missbrauch zu verhindern wurde das PDF mit dem im FRADrive hinterlegten PDF-Passwort des Prüflings verschlüsselt. Falls kein PDF-Passwort manuell hinterlegt wurde, ist das PDF-Passwort die Flughafen Ausweisnummer, inklusive Punkt und der Ziffer danach. LmsNoRenewal: Leider kann diese Qualifikation nicht alleine durch E-Learning verlängert werden. LmsActNotify: Benachrichtigung E-Learning erneut per Post oder E-Mail versenden LmsActRenewPin: Neue zufällige E-Learning PIN zuweisen diff --git a/messages/uniworx/categories/qualification/en-eu.msg b/messages/uniworx/categories/qualification/en-eu.msg index 2d7eaec78..0a3cc9eec 100644 --- a/messages/uniworx/categories/qualification/en-eu.msg +++ b/messages/uniworx/categories/qualification/en-eu.msg @@ -69,7 +69,7 @@ LmsErrorNoRefreshElearning: Error: E-learning will not be started automatically MailSubjectQualificationRenewal qname: Qualification #{qname} must be renewed shortly MailSubjectQualificationExpiry qname: Qualification #{qname} expires soon MailSubjectQualificationExpired qname: Qualification #{qname} is no longer valid -MailBodyQualificationRenewal qname: You will soon need to renew qualification #{qname} by completing an e-learning course. For details see attachment. +MailBodyQualificationRenewal qname: The qualification #{qname} must be renewed soon by completing an e-learning course, otherwise it will expire. Supervisors are kindly requested to forward the login data confidentially to the examinee. MailBodyQualificationExpiry: This qualification expires soon. You may then no longer execute any duties that require this qualification as a precondition! MailBodyQualificationExpired: This qualification is now expired. You may no longer execute any duties that require this qualification as a precondition! It is possible that the qualification expired prematurely, e.g. due to a failed compulsory e-learning. QualificationActExpire: Discontinue - qualification expires silently @@ -81,7 +81,7 @@ QualificationActBlock: Revoke QualificationActUnblock: Clear revocation QualificationStatusBlock l n m: #{n}/#{m} #{l} revoked QualificationStatusUnblock l n m: #{n}/#{m} #{l} reactivated -LmsRenewalInstructions: Instruction on how to accomplish the renewal are enclosed in the attached PDF. In order to avoid misuse, the PDF is encrypted with your chosen FRADrive PDF-Password. If you have not yet chosen a PDF-Password yet, then the password is your Fraport id card number, inkluding the punctuation mark and the Digit thereafter. +LmsRenewalInstructions: Instruction on how to accomplish the renewal are enclosed in the attached PDF. In order to avoid misuse, the PDF is encrypted with the FRADrive PDF-password of the examinee. If no PDF-password had been chosen yet, then the password is the Fraport id card number of the examinee, including the punctuation mark and the digit thereafter. LmsNoRenewal: Unfortunately, this particular qualification cannot be renewed through E-learning only. LmsActNotify: Resend e-learning notification by post or email LmsActRenewPin: Randomly replace e-learning PIN diff --git a/src/Utils/Print.hs b/src/Utils/Print.hs index 25e09b959..6c65b335c 100644 --- a/src/Utils/Print.hs +++ b/src/Utils/Print.hs @@ -251,7 +251,7 @@ sendEmailOrLetter recipient letter = do $logWarnS "LETTER" $ "PDF printing to send letter with lpr returned ExitSuccess and the following message: " <> msg return True Right pdf -> do -- send email - attachment <- case userPinPassword rcvrUsr of + attachment <- case underling ^. _userPinPassword of Nothing -> return pdf Just passwd -> encryptPDF passwd pdf >>= \case Right encPdf -> return encPdf diff --git a/templates/letter/fraport_renewal.md b/templates/letter/fraport_renewal.md index 1db35b1bc..321295742 100644 --- a/templates/letter/fraport_renewal.md +++ b/templates/letter/fraport_renewal.md @@ -67,7 +67,7 @@ $if(validduration)$ $endif$ verlängert werden. $if(supervisor)$ - Ansprechpartner werden gebeten, die Anmeldedaten aus dem geschützen Sichtfenster weiter unten + Ansprechpartner werden gebeten, die Anmeldedaten weiter unten vertraulich an den Fahrberechtigungsinhaber weiterzuleiten. $else$ Dazu bitte die Anmeldedaten aus dem geschützen Sichtfenster weiter unten verwenden. @@ -79,7 +79,7 @@ Fahrberechtigungsinhaber Ablaufdatum - : **$expiry$** + : $expiry$ Webseite der Prüfung @@ -109,7 +109,7 @@ by successfully participating in an e-learning. $if(supervisor)$ Supervisors are kindly requested to forward the login data - from the protected area below confidentially to the examinee. + below confidentially to the examinee. $else$ Please use the login data from the protected area below. $endif$ @@ -120,7 +120,7 @@ Examinee Expiry - : **$expiry$** + : $expiry$ Examination Website