🐛 Fix redirect to send email screen after a successful registration

This commit is contained in:
Luis de Dios 2026-09-17 16:23:04 +02:00
parent f3ca997d2a
commit 1ffb6c21c7
3 changed files with 26 additions and 7 deletions

View File

@ -125,7 +125,7 @@
(mf/deps on-success-callback)
(fn [params]
(if (fn? on-success-callback)
(on-success-callback (:email params))
(on-success-callback params)
(cond
(some? (:invitation-token params))
(let [token (:invitation-token params)]

View File

@ -125,13 +125,22 @@
success-register
(mf/use-fn
(fn [data]
(reset! register-token (:token data))
(reset! current-section :register-validate)))
(cond
(:invitation-token data)
(st/emit! (rt/nav :auth-verify-token {:token (:invitation-token data)}))
(:is-active data)
(st/emit! (rt/reload true))
:else
(do
(reset! user-email (:email data))
(reset! current-section :register-email-sent)))))
register-email-sent
(mf/use-fn
(fn [email]
(reset! user-email email)
(fn [data]
(reset! user-email (if (string? data) data (:email data)))
(reset! current-section :register-email-sent)))
recovery-email-sent

View File

@ -9,6 +9,7 @@
(:require
[app.common.logging :as log]
[app.main.data.modal :as modal]
[app.main.router :as rt]
[app.main.store :as st]
[app.main.ui.auth.login :refer [login-dialog*]]
[app.main.ui.auth.recovery-request :refer [recovery-request-page*]]
@ -68,8 +69,17 @@
success-register
(fn [data]
(reset! register-token (:token data))
(set-current-section :register-validate))]
(cond
(:invitation-token data)
(st/emit! (rt/nav :auth-verify-token {:token (:invitation-token data)}))
(:is-active data)
(st/emit! (modal/hide))
:else
(do
(reset! user-email (:email data))
(set-current-section :email-sent))))]
[:div {:class (stl/css :modal-overlay)}
[:div {:class (stl/css :modal-container)}