diff options
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") |