From bac1df6134eee78b79810d13c71a2b22b4739a12 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 29 Sep 2019 12:02:59 -0600 Subject: added businessCategory field --- service/inetorg-view.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'service/inetorg-view.lisp') 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)))))))) -- cgit v1.3