From bac1df6134eee78b79810d13c71a2b22b4739a12 Mon Sep 17 00:00:00 2001
From: ckonstanski <ckonstanski@pippiandcarlos.com>
Date: Sun, 29 Sep 2019 12:02:59 -0600
Subject: added businessCategory field

---
 service/inetorg-add.lisp    | 6 ++++--
 service/inetorg-modify.lisp | 6 ++++--
 service/inetorg-view.lisp   | 6 ++++--
 3 files changed, 12 insertions(+), 6 deletions(-)

(limited to 'service')

diff --git a/service/inetorg-add.lisp b/service/inetorg-add.lisp
index a55f72d..c094375 100644
--- a/service/inetorg-add.lisp
+++ b/service/inetorg-add.lisp
@@ -22,6 +22,7 @@
       (:name "add-l" :label "l" :field-type "text")
       (:name "add-telephonenumber" :label "telephoneNumber" :field-type "text")
       (:name "add-mobile" :label "mobile" :field-type "text")
+      (:name "add-businesscategory" :label "businessCategory" :field-type "text")
       (:name "add-submit" :label "Create InetOrg Entry" :field-type "button")))
 
 (defun inetorg-add-json ()
@@ -37,7 +38,7 @@
                :accessor location-p))
   (:documentation ""))
 
-(defun inetorg-add-submit-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile)
+(defun inetorg-add-submit-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory)
   (with-auth (instance inetorg-add-submit)
     (with-ldap (ldap)
       (let ((ldap-user (make-instance 'ldap-user
@@ -49,6 +50,7 @@
                                       :st st
                                       :l l
                                       :telephonenumber telephonenumber
-                                      :mobile mobile)))
+                                      :mobile mobile
+                                      :businesscategory businesscategory)))
         (add-ldap-user ldap-user ldap)
         (setf (message instance) "InetOrg entry created successfully.")))))
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.")))))
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