$newline never

$# SPDX-FileCopyrightText: 2022-2024 Sarah Vaupel <sarah.vaupel@uniworx.de>, Steffen Jost <jost@tcs.ifi.lmu.de>
$#
$# SPDX-License-Identifier: AGPL-3.0-or-later

<section>
  <p>
    Query external user databases:
    ^{personForm}
  $maybe responses <- mbData
    <h1>
      Responses: #
    <dl .deflist>
      $forall (source,responses) <- responses
        <dt .deflist__dt>
          $case source
            $of AuthSourceIdAzure tenantId
              Azure Tenant ID: #
              #{tshow tenantId}
            $of AuthSourceIdLdap ldapHost
              LDAP host: #
              #{ldapHost}
        <dd .deflist__dd>
          <pre>
            #{responses}
$#          <dl .deflist>
$#            $forall (k,(numv,vUtf8,vLatin1)) <- responses
$#              <dt .deflist__dt>
$#                #{k}
$#                $if 1 < numv
$#                  \ (#{show numv})
$#              <dd .deflist__dd>
$#                UTF8:  #{vUtf8}
$#                &#8212;
$#                Latin: #{vLatin1}

<section>
  <p>
    Upsert user from external database:
    ^{upsertForm}
  $maybe response <- mbUpsert
    <h1>
      Response: #
    <p>
      #{tshow response}