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

chore(print): test print option for supervisor

Browse Source
This commit is contained in:
Steffen Jost 2022-11-10 15:57:38 +01:00
parent 7528c6ec0b
commit 2c12260cee
4 changed files with 6 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
messages/uniworx/categories/qualification/de-de-formal.msg
View File

@ -68,6 +68,7 @@ LmsPinRenewal n@Int: E-Learning Pin ausgetauscht für #{n} #{pluralDE n "Prüfli
LmsActionFailed n@Int: Aktion nicht durchgeführt für #{n} #{pluralDE n "Person" "Personen"}, da diese derzeit nicht an einer Prüfung teilnehmen. LmsActionFailed n@Int: Aktion nicht durchgeführt für #{n} #{pluralDE n "Person" "Personen"}, da diese derzeit nicht an einer Prüfung teilnehmen.
MppOpening: Anrede MppOpening: Anrede
MppClosing: Grußformel MppClosing: Grußformel
MppSupervisor: Ansprechpartner
MppDate: Datum MppDate: Datum
MppURL: Link E-Learning MppURL: Link E-Learning
MppLogin !ident-ok: Login MppLogin !ident-ok: Login

1
messages/uniworx/categories/qualification/en-eu.msg
View File

@ -68,6 +68,7 @@ LmsPinRenewal n@Int: E-learning pin replaced randomly for #{n} #{pluralENs n "ex
LmsActionFailed n@Int: No action for #{n} #{pluralENs n "person"}, since there was no ongoing examination. LmsActionFailed n@Int: No action for #{n} #{pluralENs n "person"}, since there was no ongoing examination.
MppOpening: Opening MppOpening: Opening
MppClosing: Closing MppClosing: Closing
MppSupervisor: Supervisor
MppDate: Date MppDate: Date
MppURL: Link e-learning MppURL: Link e-learning
MppLogin: Login MppLogin: Login

4
src/Handler/PrintCenter.hs
View File

@ -54,6 +54,7 @@ data MetaPinRenewal = MetaPinRenewal
, mppLang :: Lang , mppLang :: Lang
, mppOpening :: Maybe Text , mppOpening :: Maybe Text
, mppClosing :: Maybe Text , mppClosing :: Maybe Text
, mppSupervisor:: Maybe Text
} }
deriving (Eq, Ord, Show, Generic, Typeable) deriving (Eq, Ord, Show, Generic, Typeable)
@ -69,6 +70,7 @@ instance Default MetaPinRenewal where
, mppLang = "de-de" , mppLang = "de-de"
, mppOpening = Just "Lieber Schlumpfi," , mppOpening = Just "Lieber Schlumpfi,"
, mppClosing = Nothing , mppClosing = Nothing
, mppSupervisor= Nothing
} }
makeRenewalForm :: Maybe MetaPinRenewal -> Form MetaPinRenewal makeRenewalForm :: Maybe MetaPinRenewal -> Form MetaPinRenewal
@ -84,6 +86,7 @@ makeRenewalForm tmpl = identifyForm FIDLmsLetter . validateForm validateMetaPinR
<*> areq (langField True) (fslI MsgMppLang) ((mppLang <$> tmpl) <|> Just "de-de") <*> areq (langField True) (fslI MsgMppLang) ((mppLang <$> tmpl) <|> Just "de-de")
<*> aopt textField (fslI MsgMppOpening) (mppOpening <$> tmpl) <*> aopt textField (fslI MsgMppOpening) (mppOpening <$> tmpl)
<*> aopt textField (fslI MsgMppClosing) (mppClosing <$> tmpl) <*> aopt textField (fslI MsgMppClosing) (mppClosing <$> tmpl)
<*> aopt textField (fslI MsgMppSupervisor) (mppSupervisor<$> tmpl)
validateMetaPinRenewal :: FormValidator MetaPinRenewal Handler () validateMetaPinRenewal :: FormValidator MetaPinRenewal Handler ()
validateMetaPinRenewal = do validateMetaPinRenewal = do
@ -103,6 +106,7 @@ mprToMeta MetaPinRenewal{..} = mkMeta
, toMeta "lang" mppLang , toMeta "lang" mppLang
, mbMeta keyOpening mppOpening , mbMeta keyOpening mppOpening
, mbMeta keyClosing mppClosing , mbMeta keyClosing mppClosing
, mbMeta "supervisor" mppSupervisor
] ]
where where
deOrEn = if isDe mppLang then "de" else "en" deOrEn = if isDe mppLang then "de" else "en"

41
templates/mail/qualificationRenewal.hamlet
View File

@ -1,41 +0,0 @@
$newline never
$# SPDX-FileCopyrightText: 2022 Steffen Jost <jost@tcs.ifi.lmu.de>
$#
$# SPDX-License-Identifier: AGPL-3.0-or-later
\<!doctype html>
<html>
<head>
<meta charset="UTF-8">
<style>
h1 {
font-size: 1.25em;
font-variant: small-caps;
font-weight: normal;
}
<body>
<h1>
_{SomeMessage $ MsgMailSubjectQualificationRenewal qname}
<p>
_{SomeMessage MsgMailBodyQualificationRenewal qname}
<p>
<dl>
<dt>_{SomeMessage MsgQualificationName}
<dd>
<a href=@{QualificationR qualificationSchool qualificationShorthand}>
#{qualificationName}
<dt>_{SomeMessage MsgLmsUser}
<dd>#{nameHtml userDisplayName userSurname}
<dt>_{SomeMessage MsgLmsQualificationValidUntil}
<dd>#{expiryDate}
<p>
_{SomeMessage MsgLmsRenewalInstructions} #
<a href=#{lmsLogin}>
_{SomeMessage MsgMppURL} #{lmsUrl}
^{ihamletSomeMessage editNotifications}