diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs | 7 | ||||
| -rw-r--r-- | lisp/webapps/bogenherr/site.lisp | 2 |
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) |