fixed message and errormsg

1 files changed, 2 insertions, 6 deletions

diff --git a/webapps/ldapadmin/site.lisp b/webapps/ldapadmin/site.lisp
index 891c9f9..eb644bd 100644
--- a/webapps/ldapadmin/site.lisp
+++ b/webapps/ldapadmin/site.lisp
@@ -55,12 +55,9 @@
 (defmacro .logout ()
   `(logout-json))
 
-(defmacro .inetorg-view-get ()
+(defmacro .inetorg-view ()
   `(inetorg-view-json))
 
-(defmacro .inetorg-view-post ()
-  `(inetorg-view-json message errormsg))
-
 (defmacro .inetorg-view-search ()
   `(inetorg-view-search-json))
 
@@ -93,8 +90,7 @@
 (define-endpoint :get "/login" () .login)
 (define-endpoint :post "/login/authenticate" ((dn :parameter-type 'string) (password :parameter-type 'string)) .login-authenticate)
 (define-endpoint :get "/logout" () .logout)
-(define-endpoint :get "/inetorg/view" () .inetorg-view-get)
-(define-endpoint :post "/inetorg/view" ((message :parameter-type 'string) (errormsg :parameter-type 'string)) .inetorg-view-post)
+(define-endpoint :get "/inetorg/view" () .inetorg-view)
 (define-endpoint :get "/inetorg/view/search" () .inetorg-view-search)
 (define-endpoint :post "/inetorg/view/results" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string) (businesscategory :parameter-type 'string)) .inetorg-view-results)
 (define-endpoint :post "/inetorg/modify" ((cn :parameter-type 'string)) .inetorg-modify)