diff options
Diffstat (limited to 'service/inetorg-modify-service.lisp')
| -rw-r--r-- | service/inetorg-modify-service.lisp | 10 |
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."))))) |