From e5947122bae1115b024be354ace6885cb360037e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 22 Dec 2020 09:19:28 -0700 Subject: updated to latest bootstrap --- service/inetorg-view-service.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'service/inetorg-view-service.lisp') diff --git a/service/inetorg-view-service.lisp b/service/inetorg-view-service.lisp index 5cbd0c6..370fdc6 100644 --- a/service/inetorg-view-service.lisp +++ b/service/inetorg-view-service.lisp @@ -3,14 +3,14 @@ (in-package #:ldapadmin) -(defclass inetorg-view (auth-service) +(defclass inetorg-view-service (auth-service) ((title :initarg :title :initform nil :accessor title)) (:documentation "")) (defun inetorg-view-json () - (with-auth (instance inetorg-view) + (with-auth (instance inetorg-view-service) (setf (title instance) "Use the form to filter the InetOrg results."))) (defclass inetorg-view-search-service (auth-service) @@ -45,7 +45,7 @@ (with-auth (instance inetorg-view-search-service) nil)) -(defclass inetorg-view-results (auth-service) +(defclass inetorg-view-results-service (auth-service) ((results :initarg :results :initform nil :accessor results) -- cgit v1.3