fixed message and errormsg

1 files changed, 4 insertions, 8 deletions

diff --git a/service/inetorg-view-service.lisp b/service/inetorg-view-service.lisp
index 7beeed3..ab89123 100644
--- a/service/inetorg-view-service.lisp
+++ b/service/inetorg-view-service.lisp
@@ -11,8 +11,8 @@
 
 (defun inetorg-view-json (&optional message errormsg)
   (with-auth (instance inetorg-view-service)
-    (setf (message instance) message)
-    (setf (errormsg instance) errormsg)
+    (when message (setf (message instance) message))
+    (when errormsg (setf (errormsg instance) errormsg))
     (setf (title instance) "Use the form to filter the InetOrg results.")))
 
 (defclass inetorg-view-search-service (auth-service)
@@ -22,9 +22,7 @@
    (title :initarg :title
           :initform nil
           :accessor title)
-   (location-p :initarg :location-p
-               :initform nil
-               :accessor location-p))
+   (location-p :initform nil))
   (:documentation ""))
 
 (defmethod initialize-instance :after ((inetorg-view-search-service inetorg-view-search-service) &key)
@@ -51,9 +49,7 @@
   ((results :initarg :results
             :initform nil
             :accessor results)
-   (location-p :initarg :location-p
-               :initform nil
-               :accessor location-p))
+   (location-p :initform nil))
   (:documentation ""))
 
 (defun inetorg-view-results-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory)