From 9830cb2503eb17d75eb2c39ab31805f9b610d411 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 28 Sep 2022 17:23:30 +0200 Subject: [PATCH] minor --- models/print.model | 2 +- src/Jobs/Handler/SendNotification/Qualification.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/models/print.model b/models/print.model index 9bb1cd8d1..201256662 100644 --- a/models/print.model +++ b/models/print.model @@ -5,7 +5,7 @@ PrintJob created UTCTime acknowledged UTCTime Maybe recipient UserId Maybe OnDeleteCascade OnUpdateCascade -- optional as some letters may contain just an address - sender UserId Maybe -- senders and associations are optional + sender UserId Maybe OnDeleteSetNull OnUpdateCascade -- senders and associations are optional course CourseId Maybe OnDeleteCascade OnUpdateCascade qualification QualificationId Maybe OnDeleteCascade OnUpdateCascade lmsUser LmsUserId Maybe OnDeleteCascade OnUpdateCascade -- allows tracking if recipient has been notified diff --git a/src/Jobs/Handler/SendNotification/Qualification.hs b/src/Jobs/Handler/SendNotification/Qualification.hs index c4491cdf7..07051aaa3 100644 --- a/src/Jobs/Handler/SendNotification/Qualification.hs +++ b/src/Jobs/Handler/SendNotification/Qualification.hs @@ -67,7 +67,7 @@ dispatchNotificationQualificationRenewal nQualification jRecipient = do lmsIdent = lmsUserIdent & getLmsIdent lmsUrl = "https://drive.fraport.de" lmsLogin = lmsUrl <> "/?login=" <> lmsIdent - prepAddress upa = userDisplayName : (upa & html2textlines) -- TODO: use supervisor's address + prepAddress upa = userDisplayName : (upa & html2textlines) -- TODO: use supervisor's address, once implemented pdfMeta = mkMeta [ toMeta "date" letterDate , toMeta "lang" (selectDeEn userLanguages) -- select either German or English only, see Utils.Lang