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

🐛 Fix wrong handling of deleted users on password recovery.

Browse source
This commit is contained in:
Andrey Antukh 2021-03-09 21:38:22 +01:00 • committed by Andrés Moya
parent 7f624b5c61
commit 3d043adb03
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
backend/src/app/rpc/queries/profile.clj
View file

@ -13,10 +13,8 @@
[app.common.spec :as us] [app.common.spec :as us]
[app.common.uuid :as uuid] [app.common.uuid :as uuid]
[app.db :as db] [app.db :as db]
[app.db.sql :as sql]
[app.util.services :as sv] [app.util.services :as sv]
[clojure.spec.alpha :as s] [clojure.spec.alpha :as s]))
[cuerdas.core :as str]))
;; --- Helpers & Specs ;; --- Helpers & Specs
@ -97,12 +95,16 @@
profile)) profile))
(def sql:retrieve-profile-by-email
"select p.* from profile as p
where p.email = lower(?)
and p.deleted_at is null")
(defn retrieve-profile-data-by-email (defn retrieve-profile-data-by-email
[conn email] [conn email]
(let [sql (sql/select :profile {:email (str/lower email)}) (let [sql [sql:retrieve-profile-by-email email]]
data (db/exec-one! conn sql)] (some-> (db/exec-one! conn sql)
(when (and data (nil? (:deleted-at data))) (decode-profile-row))))
(decode-profile-row data))))
;; --- Attrs Helpers ;; --- Attrs Helpers