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-add-service.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'service/inetorg-add-service.lisp') 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."))))) -- cgit v1.3