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-view.lisp | |
| parent | 00c4a9224cae914abf4ca5e8b0961d69025603a9 (diff) | |
added businessCategory field
Diffstat (limited to 'service/inetorg-view.lisp')
| -rw-r--r-- | service/inetorg-view.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/service/inetorg-view.lisp b/service/inetorg-view.lisp index 08e7914..f5bf2f2 100644 --- a/service/inetorg-view.lisp +++ b/service/inetorg-view.lisp @@ -35,6 +35,7 @@ (:name "view-l" :label "l" :field-type "text") (:name "view-telephonenumber" :label "telephoneNumber" :field-type "text") (:name "view-mobile" :label "mobile" :field-type "text") + (:name "view-businesscategory" :label "businessCategory" :field-type "text") (:name "view-submit" :label "Search InetOrg Entries" :field-type "button"))) (defun inetorg-view-search-json () @@ -53,7 +54,7 @@ :accessor location-p)) (:documentation "")) -(defun inetorg-view-results-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile) +(defun inetorg-view-results-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory) (with-auth (instance inetorg-view-results) (with-ldap (ldap) (setf (results instance) @@ -66,5 +67,6 @@ (:st ,st) (:l ,l) (:telephonenumber ,telephonenumber) - (:mobile ,mobile))) + (:mobile ,mobile) + (:businesscategory ,businesscategory))) (lambda (x y) (string< (get-cn x) (get-cn y)))))))) |