Baguette/dnsmanager-webclient
3
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Clear warning for migrated accounts: add an email address.

Browse Source
This commit is contained in:
Philippe Pittoli 2024-11-21 07:03:38 +01:00
parent 3852f4ef96
commit c95d0e46b2
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/App/Container.purs
View File

@ -282,6 +282,7 @@ render state
, render_nav , render_nav
, reconnection_bar , reconnection_bar
, render_notifications , render_notifications
, migration_warning_on_email_address
, case state.current_page of , case state.current_page of
Home -> render_home Home -> render_home
Authentication -> render_auth_form Authentication -> render_auth_form
@ -309,6 +310,22 @@ render state
paypal_btn :: forall w i. HH.HTML w i paypal_btn :: forall w i. HH.HTML w i
paypal_btn = HH.div [ HP.ref ref_paypal_div ] [] paypal_btn = HH.div [ HP.ref ref_paypal_div ] []
migration_warning_on_email_address :: forall w. HH.HTML w Action
migration_warning_on_email_address =
case state.user_data of
Just (Tuple Nothing _) ->
HH.div [HP.classes [C.notification, C.is_warning]]
[ Bulma.p """
⚠️​ MIGRATION (FR): veuillez indiquer une adresse email pour votre compte.
Tout compte sans adresse email sera supprimé sous 6 mois.
"""
, Bulma.p """
⚠️​ MIGRATION (EN): please associate an email address to your account.
Accounts without a validated email address will be discarded within 6 months.
"""
]
_ -> HH.text ""
legal_notice_btn = Bulma.btn_ [] "Legal notice" (Routing LegalNotice) legal_notice_btn = Bulma.btn_ [] "Legal notice" (Routing LegalNotice)
reconnection_bar :: forall w. HH.HTML w Action reconnection_bar :: forall w. HH.HTML w Action
reconnection_bar = reconnection_bar =