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

minor

Browse Source
This commit is contained in:
Steffen Jost 2022-09-28 17:23:30 +02:00
parent c76fb2229d
commit 9830cb2503
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
models/print.model
View File

@ -5,7 +5,7 @@ PrintJob
created UTCTime created UTCTime
acknowledged UTCTime Maybe acknowledged UTCTime Maybe
recipient UserId Maybe OnDeleteCascade OnUpdateCascade -- optional as some letters may contain just an address 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 course CourseId Maybe OnDeleteCascade OnUpdateCascade
qualification QualificationId Maybe OnDeleteCascade OnUpdateCascade qualification QualificationId Maybe OnDeleteCascade OnUpdateCascade
lmsUser LmsUserId Maybe OnDeleteCascade OnUpdateCascade -- allows tracking if recipient has been notified lmsUser LmsUserId Maybe OnDeleteCascade OnUpdateCascade -- allows tracking if recipient has been notified

2
src/Jobs/Handler/SendNotification/Qualification.hs
View File

@ -67,7 +67,7 @@ dispatchNotificationQualificationRenewal nQualification jRecipient = do
lmsIdent = lmsUserIdent & getLmsIdent lmsIdent = lmsUserIdent & getLmsIdent
lmsUrl = "https://drive.fraport.de" lmsUrl = "https://drive.fraport.de"
lmsLogin = lmsUrl <> "/?login=" <> lmsIdent 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 pdfMeta = mkMeta
[ toMeta "date" letterDate [ toMeta "date" letterDate
, toMeta "lang" (selectDeEn userLanguages) -- select either German or English only, see Utils.Lang , toMeta "lang" (selectDeEn userLanguages) -- select either German or English only, see Utils.Lang