diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-24 22:27:40 -0700 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-24 22:27:40 -0700 |
| commit | e678d9ba62cd44795fe8d4b882e61dfbd672729e (patch) | |
| tree | c3417e105f3eac7e31e63960b3320a6e56b1e7fd /service/inetorg-delete-service.lisp | |
| parent | e54116790e06c0ec0ab0c799d62083df32c7d12a (diff) | |
fixed message and errormsg
Diffstat (limited to 'service/inetorg-delete-service.lisp')
| -rw-r--r-- | service/inetorg-delete-service.lisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/service/inetorg-delete-service.lisp b/service/inetorg-delete-service.lisp index 8756f64..9f545cd 100644 --- a/service/inetorg-delete-service.lisp +++ b/service/inetorg-delete-service.lisp @@ -7,9 +7,7 @@ ((cn :initarg :cn :initform nil :accessor cn) - (location-p :initarg :location-p - :initform nil - :accessor location-p)) + (location-p :initform nil)) (:documentation "")) (defun inetorg-delete-json (cn) @@ -17,7 +15,7 @@ (setf (cn instance) cn))) (defclass inetorg-delete-submit-service (auth-service) - () + ((location-p :initform nil)) (:documentation "")) (defun inetorg-delete-submit-json (cn) @@ -25,4 +23,4 @@ (with-ldap (ldap) (let ((ldap-user (get-ldap-user ldap cn))) (delete-ldap-user ldap-user ldap) - (setf (message instance) "InetOrg entry deleted successfully."))))) + (setf (session-value :message) "InetOrg entry deleted successfully."))))) |