Change user delete endpoint to DELETE method

2 files changed, 4 insertions, 5 deletions

diff --git a/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs b/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs
index 6e5276d..3e62a46 100644
--- a/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs
+++ b/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs
@@ -1328,10 +1328,9 @@
     (on-menu-clicked "/users")))
 
 (defn render-users-delete [id]
-  (POST "/users/delete"
-        {:format :raw
-         :params {:id id}
-         :handler handler-users-delete}))
+  (DELETE (str "/users/delete" id)
+          {:format :raw
+           :handler handler-users-delete}))
 
 ;; location
 
diff --git a/lisp/webapps/bogenherr/site.lisp b/lisp/webapps/bogenherr/site.lisp
index 9bb1b2d..f41bdf9 100644
--- a/lisp/webapps/bogenherr/site.lisp
+++ b/lisp/webapps/bogenherr/site.lisp
@@ -219,4 +219,4 @@
 (define-endpoint ("/users/modify" :method :post) (&post (id :parameter-type 'integer)) .users-modify)
 (define-endpoint ("/users/modify/submit" :method :post) (&post (id :parameter-type 'integer) (role_groups :parameter-type 'string) (username :parameter-type 'string) (first_name :parameter-type 'string) (last_name :parameter-type 'string) (email :parameter-type 'string) (phone :parameter-type 'string)) .users-modify-submit)
 (define-endpoint ("/users/toggle-active" :method :post) (&post (id :parameter-type 'integer)) .users-toggle-active)
-(define-endpoint ("/users/delete" :method :post) (&post (id :parameter-type 'integer)) .users-delete)
+(define-endpoint ("/users/delete/:id" :method :delete) (&path (id 'integer)) .users-delete)