diff --git a/src/brmelect.scm b/src/brmelect.scm index 763fbad..e3ec4d8 100644 --- a/src/brmelect.scm +++ b/src/brmelect.scm @@ -154,10 +154,10 @@ ORDER BY vote_id" id))) @h2{@,(row-fold* (lambda (title x) title) "" meeting-info) - Votes} @form[ (action @,(string-append "/admin/meeting/" id "/vote")) - (method "POST")] + (method "POST")]{ @table{ - @tr{ @th{"New Vote Title"} @th{}} - @tr{ @td{@input[(name "vote-title")]} @td{@input[(type "submit") (value "Create Vote")]}}} + @tr{ @th{@label[(for "vote-title")]{New Vote Title}} @th{}} + @tr{ @td{@input[(name "vote-title")]} @td{@input[(type "submit") (value "Create Vote")]}}}} @table{ @tr{ @th{ID} @th{Title} @th{Start} @th{End} @th{Active} @th{Actions}} @,@(row-map*