3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

Merge pull request #6693 from penpot/niwinz-staging-register-regression

Browse source 
🐛 Fix regression on singup flow
This commit is contained in:
Alejandro Alonso 2025-06-18 07:23:37 +02:00 • committed by GitHub
commit cbc98a761f
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
3 changed files with 47 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

34
frontend/src/app/main/ui/auth/register.cljs
View file

@ -82,7 +82,7 @@
on-error
(mf/use-fn
(fn [form cause]
(fn [cause]
(let [{:keys [type code] :as edata} (ex-data cause)]
(condp = [type code]
[:restriction :registration-disabled]
@ -101,7 +101,10 @@
(swap! form assoc-in [:errors :password]
{:message (tr "errors.email-as-password")})
(st/emit! (ntf/error (tr "errors.generic")))))))
(do
(when-let [explain (get edata :explain)]
(println explain))
(st/emit! (ntf/error (tr "errors.generic"))))))))
on-success
(mf/use-fn
@ -109,10 +112,9 @@
(fn [params]
(if (fn? on-success-callback)
(on-success-callback (:email params))
(cond
(some? (:token params))
(let [token (:token params)]
(some? (:invitation-token params))
(let [token (:invitation-token params)]
(st/emit! (rt/nav :auth-verify-token {:token token})))
(:is-active params)
@ -126,25 +128,25 @@
on-register-profile
(mf/use-fn
(mf/deps on-success on-error)
(fn [form]
(fn [params]
(reset! submitted? true)
(let [create-welcome-file?
(cf/external-feature-flag "onboarding-03" "test")
params
(cond-> form
create-welcome-file? (assoc :create-welcome-file true))]
(->> (rp/cmd! :register-profile params)
(rx/subs! on-success on-error #(reset! submitted? false))))))
(->> (rp/cmd! :register-profile params)
(rx/subs! on-success on-error #(reset! submitted? false)))))
on-submit
(mf/use-fn
(mf/deps on-success-callback)
(fn [form _event]
(reset! submitted? true)
(let [cdata (:clean-data @form)]
(let [create-welcome-file?
(cf/external-feature-flag "onboarding-03" "test")
cdata
(cond-> (:clean-data @form)
create-welcome-file?
(assoc :create-welcome-file true))]
(->> (rp/cmd! :prepare-register-profile cdata)
(rx/map #(merge % cdata))
(rx/finalize #(reset! submitted? false))
(rx/subs! on-register-profile)))))]