chore(avs): refine display for unkown avs ids

This commit is contained in:
Steffen Jost 2023-01-09 17:28:46 +01:00
parent 5d64d2fed8
commit 93c83f3833
4 changed files with 8 additions and 7 deletions

View File

@ -99,5 +99,5 @@ MailSupervisorNote: Note to supervisor
MailSupervisorBody undername supername: You receive this message, since #{supername} is registered as supervisor for #{undername} in
MailSupervisorCopy undermail: This is a copy of a message originally sent to #{undermail}.
MailSupervisorNoCopy: Warning: This message was not sent to the original recipient! The FRADrive registered supervisor, i.e. you, is responsible for forwarding this message to the recipient!
MailSupervisedNote: Please Note
MailSupervisedNote: Please note
MailSupervisedBody: A copy of this message has been sent to all supervisors registered for you in FRADrive, namely:

View File

@ -369,6 +369,9 @@ text2markup t = [shamlet|#{t}|]
text2widget :: Text -> WidgetFor site ()
text2widget t = [whamlet|#{t}|]
show2widget :: Show a => a -> WidgetFor site ()
show2widget t = [whamlet|#{tshow t}|]
citext2widget :: CI Text -> WidgetFor site ()
citext2widget t = [whamlet|#{CI.original t}|]

View File

@ -11,9 +11,8 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
$if numUnknownLicenceOwners > 0
<p>
Es wurden #{length unknownLicenceOwners} Personen mit
einer Fahrberechtigung im AVS gefunden, #
welche FRADrive unbekannt sind. #
^{modal (text2widget (tshow numUnknownLicenceOwners <> " Personen IDs")) (Right (text2widget ("AVS Personen IDs: " <> tshow unknownLicenceOwners)))} #
mit einer Fahrberechtigung wurden im AVS gefunden, welche FRADrive unbekannt sind. #
Es gibt zwei Möglichkeiten zum Auflösen dieses Problems: #
<p>

View File

@ -10,9 +10,8 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
$if numUnknownLicenceOwners > 0
<p>
There are #{length unknownLicenceOwners} persons
owning a driving licence within AVS, #
which are not in the FRADrive database. #
^{modal (text2widget (tshow numUnknownLicenceOwners <> " Person IDs")) (Right (text2widget ("AVS Person IDs: " <> tshow unknownLicenceOwners)))} #
owning a driving licence within AVS were found, which are unknown within the FRADrive database. #
There are two solutions to this problem: #
<p>