diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2019-09-29 12:02:59 -0600 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2019-09-29 12:02:59 -0600 |
| commit | bac1df6134eee78b79810d13c71a2b22b4739a12 (patch) | |
| tree | dd0081f9483230407ec3392f36c5daa8d90b0f93 /service/inetorg-modify.lisp | |
| parent | 00c4a9224cae914abf4ca5e8b0961d69025603a9 (diff) | |
added businessCategory field
Diffstat (limited to 'service/inetorg-modify.lisp')
| -rw-r--r-- | service/inetorg-modify.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/service/inetorg-modify.lisp b/service/inetorg-modify.lisp index e1f5577..a8b5b21 100644 --- a/service/inetorg-modify.lisp +++ b/service/inetorg-modify.lisp @@ -25,6 +25,7 @@ (:name "modify-l" :label "l" :field-type "text") (:name "modify-telephonenumber" :label "telephoneNumber" :field-type "text") (:name "modify-mobile" :label "mobile" :field-type "text") + (:name "modify-businesscategory" :label "businessCategory" :field-type "text") (:name "modify-submit" :label "Modify InetOrg Entry" :field-type "button"))) (defun inetorg-modify-json (cn) @@ -41,7 +42,7 @@ :accessor location-p)) (:documentation "")) -(defun inetorg-modify-submit-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile) +(defun inetorg-modify-submit-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory) (with-auth (instance inetorg-modify-submit) (with-ldap (ldap) (let ((ldap-user (make-instance 'ldap-user @@ -53,6 +54,7 @@ :st st :l l :telephonenumber telephonenumber - :mobile mobile))) + :mobile mobile + :businesscategory businesscategory))) (modify-ldap-user ldap-user ldap) (setf (message instance) "InetOrg entry saved successfully."))))) |