chore(printing): minor changes

This commit is contained in:
Steffen Jost 2022-06-28 17:13:38 +02:00
parent 3d14aee7ee
commit 3be0cf95aa
4 changed files with 25 additions and 11 deletions

View File

@ -11,7 +11,21 @@ import Import
-- import Handler.Utils
{-
data MetaPinRenewal = MetaPinRenewal
{ mppOpening
, mppClosing
, mppDate
, mppURL
, mppLogin
, mppPin
, mppRecipient :: Text
, mppAdress :: [Text]
, mppLang :: Text
, mppIsDe :: Bool
}
-}
{-
makePrintForm :: Maybe AvsPersonQuery -> Form AvsPersonQuery
makeAvsPersonForm tmpl = identifyForm FIDAvsPersonQuery . validateForm validateAvsPersonQuery $ \html ->

View File

@ -87,7 +87,7 @@ runAvsPersonSearch qry = do
case mbAvsConf of
Nothing -> return $ Left "appAvsConfig is empty, i.e. invalid AVS configuration settings."
Just avsConf -> do
-- TODO: consider using Servant.Client.Core.parseBaseUrl within Settings already at Startup!
-- TODO: consider using Servant.Client.Core.BaseUrl.Instances.parseBaseUrl' within Settings already at Startup!
let avsServer = BaseUrl
{ baseUrlScheme = Https
, baseUrlHost = avsHost avsConf

View File

@ -113,7 +113,7 @@ $endif$
\begin{letter}{%
$for(address)$
$address$$sep$\\
$endfor$
$endfor$
}
\opening{$opening$}

View File

@ -19,10 +19,10 @@ hyperrefoptions: hidelinks
date: 11.11.1111
lang: de-de
is-de: true
lms-login: 123456
lms-pin: abcdef
login: 123456
pin: abcdef
# Emfpänger
name: E. M. Pfänger
recipient: E. M. Pfänger
address:
- Musterfirma GmbH
- E. M. Pfänger
@ -42,15 +42,15 @@ URL
Name:
: $name$
: $recipient$
Login
: $lms-login$
: $login$
Pin
: $lms-pin$
: $pin$
Sobald die Frist abgelaufen ist, muss zur Wiedererlangung des Vorfeldführerscheins
@ -72,15 +72,15 @@ URL
Name:
: $name$
: $recipient$
Login
: $lms-login$
: $login$
Pin
: $lms-pin$
: $pin$
Should your apron driving licence expire before completing this