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 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}. 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! 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: 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 :: Text -> WidgetFor site ()
text2widget t = [whamlet|#{t}|] text2widget t = [whamlet|#{t}|]
show2widget :: Show a => a -> WidgetFor site ()
show2widget t = [whamlet|#{tshow t}|]
citext2widget :: CI Text -> WidgetFor site () citext2widget :: CI Text -> WidgetFor site ()
citext2widget t = [whamlet|#{CI.original t}|] citext2widget t = [whamlet|#{CI.original t}|]

View File

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

View File

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