chore(printing): minor changes
This commit is contained in:
parent
3d14aee7ee
commit
3be0cf95aa
@ -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 ->
|
||||
|
||||
@ -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
|
||||
|
||||
@ -113,7 +113,7 @@ $endif$
|
||||
\begin{letter}{%
|
||||
$for(address)$
|
||||
$address$$sep$\\
|
||||
$endfor$
|
||||
$endfor$
|
||||
}
|
||||
|
||||
\opening{$opening$}
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user