fixed message and errormsg

1 files changed, 3 insertions, 7 deletions

diff --git a/service/inetorg-modify-service.lisp b/service/inetorg-modify-service.lisp
index 61e7c16..47ca6cd 100644
--- a/service/inetorg-modify-service.lisp
+++ b/service/inetorg-modify-service.lisp
@@ -13,9 +13,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-modify-service inetorg-modify-service) &key)
@@ -40,9 +38,7 @@
       (setf (ldap-user-values instance) (get-ldap-user ldap cn)))))
 
 (defclass inetorg-modify-submit-service (auth-service)
-  ((location-p :initarg :location-p
-               :initform nil
-               :accessor location-p))
+  ((location-p :initform nil))
   (:documentation ""))
 
 (defun inetorg-modify-submit-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory)
@@ -60,4 +56,4 @@
                                       :mobile mobile
                                       :businesscategory businesscategory)))
         (modify-ldap-user ldap-user ldap)
-        (setf (message instance) "InetOrg entry saved successfully.")))))
+        (setf (session-value :message) "InetOrg entry saved successfully.")))))