brmlab/brmelect
9
0
Fork 0
forked from brmlab/brmelect-github
Code Pull requests Activity

fix again

Browse source
This commit is contained in:
TMA 2026-03-15 11:25:21 +01:00
parent 4a92f010f7
commit 5019188ed6
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/brmelect.scm
View file

@ -319,7 +319,7 @@ $4"
(when (and present-str (eq? (string=? (if (eq? (vector-ref member-row 3) #f) #t) #t)) (when (and present-str (eq? (string=? (if (eq? (vector-ref member-row 3) #f) #t) #t))
(query-db "SELECT brm.sync_vote_present_to_meeting($1, $2, $3)" (query-db "SELECT brm.sync_vote_present_to_meeting($1, $2, $3)"
member-id meeting-id (if present-str #t #f)))))) member-id meeting-id (if present-str #t #f))))))
all-member-rows))) all-member-rows))))
(make-html-response (make-html-response
200 200
(layout (layout
@ -327,10 +327,10 @@ $4"
`@div{ `@div{
@p{Members status updated successfully for vote @,(identity id).} @p{Members status updated successfully for vote @,(identity id).}
@a[(href @,(string-append "/admin/vote/" id))]{Back to Vote} @a[(href @,(string-append "/admin/vote/" id))]{Back to Vote}
})))) })))
(make-error-response (make-error-response
405 "The access method used to request the document is not supported." 405 "The access method used to request the document is not supported."
#:headers '(("Allow" . "POST"))) )) #:headers '(("Allow" . "POST")))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; /admin/vote/:id/end ;; /admin/vote/:id/end
@ -345,10 +345,10 @@ $4"
`@div{ `@div{
@p{Vote @,(identity id) has been ended successfully.} @p{Vote @,(identity id) has been ended successfully.}
@a[(href @,(string-append "/admin/vote/" id))]{Back to Vote} @a[(href @,(string-append "/admin/vote/" id))]{Back to Vote}
})))) })))
(make-error-response (make-error-response
405 "The access method used to request the document is not supported." 405 "The access method used to request the document is not supported."
#:headers '(("Allow" . "POST")))) #:headers '(("Allow" . "POST")))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; /foo -- debug endpoint ;; /foo -- debug endpoint