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