diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-08-13 17:49:25 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-08-13 17:49:25 -0600 |
| commit | fc9ee736710c815411250521c9851f86a591d4c3 (patch) | |
| tree | b08ae6dc5308cb3a17b9b161826999c2976cc70f /lisp/service | |
| parent | 7400eef8f282dd71e940dd40a00de3f625c2d749 (diff) | |
stuff
Diffstat (limited to 'lisp/service')
| -rw-r--r-- | lisp/service/users-service.lisp | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/lisp/service/users-service.lisp b/lisp/service/users-service.lisp index 78cf065..d05dfb0 100644 --- a/lisp/service/users-service.lisp +++ b/lisp/service/users-service.lisp @@ -145,18 +145,16 @@ (registration (get-registration-by-hash auth-pkg hash))) (registrations-gc auth-pkg) (if registration - (progn - (setf (form instance) - (make-form "users-register-form" - nil - t - `((:name "hash" :field-type "hidden" :value ,(hash registration) :required "required") - (:name "username" :label "Username" :field-type "text" :required "required") - (:name "pwd" :label "Password" :field-type "password" :required "required") - (:name "pwd2" :label "Password (again)" :field-type "password" :required "required") - (:name "phone" :label "Phone" :field-type "text") - (:label "Register" :field-type "button" :onclick "on_users_register_submit_clicked()")))) - (setf (session-value :message) "Registered successfully.")) + (setf (form instance) + (make-form "users-register-form" + nil + t + `((:name "hash" :field-type "hidden" :value ,(hash registration) :required "required") + (:name "username" :label "Username" :field-type "text" :required "required") + (:name "pwd" :label "Password" :field-type "password" :required "required") + (:name "pwd2" :label "Password (again)" :field-type "password" :required "required") + (:name "phone" :label "Phone" :field-type "text") + (:label "Register" :field-type "button" :onclick "on_users_register_submit_clicked()")))) (setf (session-value :errormsg) "Error: invalid registration.")))))) (defclass users/register/submit-service (rest-service) |