mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

reset passwords

Browse source
This commit is contained in:
David Botton 2022-05-16 18:44:46 -04:00
parent f73a4b1283
commit 75d3762677
2 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tutorial/32-tutorial.lisp
View file

@ -161,7 +161,17 @@
*sql-connection*
"select * from users")))))
(dolist (user users)
(create-div body :content (getf user :|username|))))))
(let* ((box (create-div body))
(suser (create-span box :content (getf user :|username|)))
(rbut (create-button box :content "Reset Password"
:class "w3-margin-left")))
(declare (ignore suser))
(set-on-click rbut (lambda (obj)
(declare (ignore obj))
(reset-password *sql-connection*
(getf user :|username|))
(setf (disabledp rbut) t)
(setf (text rbut) "Done"))))))))
:authorize t))
(defun on-new-pass (body)