fixed message and errormsg

1 files changed, 2 insertions, 4 deletions

diff --git a/service/inetorg-add-service.lisp b/service/inetorg-add-service.lisp
index 9647060..681da97 100644
--- a/service/inetorg-add-service.lisp
+++ b/service/inetorg-add-service.lisp
@@ -34,9 +34,7 @@
     t))
 
 (defclass inetorg-add-submit-service (auth-service)
-  ((location-p :initarg :location-p
-               :initform nil
-               :accessor location-p))
+  ((location-p :initform nil))
   (:documentation ""))
 
 (defun inetorg-add-submit-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory)
@@ -54,4 +52,4 @@
                                       :mobile mobile
                                       :businesscategory businesscategory)))
         (add-ldap-user ldap-user ldap)
-        (setf (message instance) "InetOrg entry created successfully.")))))
+        (setf (session-value :message) "InetOrg entry created successfully.")))))