diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-22 09:19:28 -0700 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-22 09:19:28 -0700 |
| commit | e5947122bae1115b024be354ace6885cb360037e (patch) | |
| tree | 0384007798115997a8e04517b1763685303253f6 /service/inetorg-modify-service.lisp | |
| parent | 0ed1cba1b39daaf8eef693233f081b455c88dece (diff) | |
updated to latest bootstrap
Diffstat (limited to 'service/inetorg-modify-service.lisp')
| -rw-r--r-- | service/inetorg-modify-service.lisp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/service/inetorg-modify-service.lisp b/service/inetorg-modify-service.lisp index 293c43b..61e7c16 100644 --- a/service/inetorg-modify-service.lisp +++ b/service/inetorg-modify-service.lisp @@ -7,6 +7,9 @@ ((form :initarg :form :initform nil :accessor form) + (ldap-user-values :initarg :ldap-user-values + :initform nil + :accessor ldap-user-values) (title :initarg :title :initform nil :accessor title) @@ -19,7 +22,7 @@ (setf (form inetorg-modify-service) (make-form "inetorg-modify-form" nil t - '((:name "modify-givenname" :label "givenName" :field-type "text" :value ) + `((:name "modify-givenname" :label "givenName" :field-type "text") (:name "modify-sn" :label "sn" :field-type "text") (:name "modify-mail" :label "mail" :field-type "text") (:name "modify-postaladdress" :label "postalAddress" :field-type "text") @@ -29,21 +32,21 @@ (:name "modify-telephonenumber" :label "telephoneNumber" :field-type "text") (:name "modify-mobile" :label "mobile" :field-type "text") (:name "modify-businesscategory" :label "businessCategory" :field-type "text") - (:label "Modify InetOrg Entry" :field-type "button"))) + (:label "Modify InetOrg Entry" :field-type "button" :onclick "on_inetorg_modify_submit_clicked()"))))) (defun inetorg-modify-json (cn) (with-auth (instance inetorg-modify-service) (with-ldap (ldap) (setf (ldap-user-values instance) (get-ldap-user ldap cn))))) -(defclass inetorg-modify-submit (auth-service) +(defclass inetorg-modify-submit-service (auth-service) ((location-p :initarg :location-p :initform nil :accessor location-p)) (:documentation "")) (defun inetorg-modify-submit-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory) - (with-auth (instance inetorg-modify-submit) + (with-auth (instance inetorg-modify-submit-service) (with-ldap (ldap) (let ((ldap-user (make-instance 'ldap-user :givenname givenname |