diff options
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."))))) |