From 356b0d955e5a6f11155a1c5c77505b37cd873033 Mon Sep 17 00:00:00 2001
From: TMA <tma+hs@jikos.cz>
Date: Sun, 15 Mar 2026 02:06:58 +0100
Subject: [PATCH] fix again

---
 src/brmelect.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/brmelect.scm b/src/brmelect.scm
index e3ec4d8..7da2621 100644
--- a/src/brmelect.scm
+++ b/src/brmelect.scm
@@ -179,15 +179,15 @@ ORDER BY vote_id" id)))
 ;; /admin/meeting/:id/vote
 (define-resource (create-meeting-vote "admin" "meeting" id "vote" params)
   (if (string=? (resource-context-method (current-resource-context)) "POST")
-      (let ((title (hash-ref params 'vote-title)))
+      (let ((title (param params 'vote-title)))
         (query-db "SELECT brm.create_vote_and_init_status($1, $2)" id title)
         (make-html-response
          200
          (layout
           "Vote Created"
           `@div{
-                @p{"Vote successfully created for meeting " (number->string id) "."}
-                @a[(href (string-append "/admin/meeting/" (number->string id)))]{Back to Meeting}
+                @p{Vote successfully created for meeting @,(identity id).}
+                @a[(href @,(string-append "/admin/meeting/" id))]{Back to Meeting}
                 })))
       (make-error-response
        405 "The access method used to request the document is not supported."