diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-08-20 16:06:17 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-08-20 16:06:17 -0600 |
| commit | 50c7e42495e802800e2d06731a17f848641da4ca (patch) | |
| tree | 1ea7eeeb0ca76e8bf3971655a74a6c0fc096b013 /lisp/service/password-service.lisp | |
| parent | c8c4eb61ea197ff6181a51793b8a73c610ab0803 (diff) | |
stuff
Diffstat (limited to 'lisp/service/password-service.lisp')
| -rw-r--r-- | lisp/service/password-service.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/service/password-service.lisp b/lisp/service/password-service.lisp index d9ad4bc..d8a7213 100644 --- a/lisp/service/password-service.lisp +++ b/lisp/service/password-service.lisp @@ -12,6 +12,13 @@ :accessor title)) (:documentation "")) +(defclass password/modify-service (password-service) + ((form :initarg :form + :initform nil + :accessor form) + (location-p :initform nil)) + (:documentation "")) + (defun password-json () (with-auth (instance password-service "profile-modify") (let ((user (get-user))) @@ -24,13 +31,6 @@ (:name "pwd2" :label "Password (again)" :field-type "password" :required "required") (:label "Change Password" :field-type "button" :onclick "on_password_submit_clicked()"))))))) -(defclass password/modify-service (password-service) - ((form :initarg :form - :initform nil - :accessor form) - (location-p :initform nil)) - (:documentation "")) - (defun password-submit-json (id pwd pwd2) (declare (special pwd pwd2)) (with-auth (instance password/modify-service "profile-modify") |
