🐛 Avoid just white spaces for old password

This commit is contained in:
Alejandro Alonso 2023-07-26 10:04:26 +02:00 committed by Aitor
parent 7036dddad1
commit 934c6c5aae
3 changed files with 14 additions and 1 deletions

View file

@ -439,3 +439,13 @@
(cond-> errors
(all-spaces? (get data field))
(assoc field {:message error-msg}))))
(defn validate-not-all-spaces
[field error-msg]
(fn [errors data]
(let [value (get data field)]
(cond-> errors
(and
(all-spaces? value)
(> (count value) 0))
(assoc field {:message error-msg})))))