forked from brmlab/brmelect-github
asdf
This commit is contained in:
parent
1da87cea79
commit
0cf929a875
1 changed files with 1 additions and 1 deletions
|
|
@ -180,7 +180,7 @@ ORDER BY vote_id" id)))
|
||||||
;; /admin/meeting/:id/vote
|
;; /admin/meeting/:id/vote
|
||||||
(define-resource (create-meeting-vote "admin" "meeting" id "vote" params)
|
(define-resource (create-meeting-vote "admin" "meeting" id "vote" params)
|
||||||
(if (string=? (resource-context-method (current-resource-context)) "POST")
|
(if (string=? (resource-context-method (current-resource-context)) "POST")
|
||||||
(let ((title (param params 'vote-title)))
|
(let ((title (param params "vote-title")))
|
||||||
(query-db "SELECT brm.create_vote_and_init_status($1, $2)" id title)
|
(query-db "SELECT brm.create_vote_and_init_status($1, $2)" id title)
|
||||||
(make-html-response
|
(make-html-response
|
||||||
200
|
200
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue