From e678d9ba62cd44795fe8d4b882e61dfbd672729e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 24 Dec 2020 22:27:40 -0700 Subject: fixed message and errormsg --- service/inetorg-modify-service.lisp | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'service/inetorg-modify-service.lisp') 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."))))) -- cgit v1.3