diff options
Diffstat (limited to 'jakob/dynamic/capabilities/rsvp.scm')
| -rw-r--r-- | jakob/dynamic/capabilities/rsvp.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/jakob/dynamic/capabilities/rsvp.scm b/jakob/dynamic/capabilities/rsvp.scm index 4a7ada2..437f90a 100644 --- a/jakob/dynamic/capabilities/rsvp.scm +++ b/jakob/dynamic/capabilities/rsvp.scm @@ -220,7 +220,7 @@ It is a base64 string, encoding `%vanity-length' bytes of randomness." (invitation-code (or invitation-code code)) (invitation (invitation->event-id invitation-code)) (capabilities (cadr invitation)) - (((i_ title description date location)) + (((i_ title description date location end-date)) (exec-query conn "SELECT * FROM events WHERE id = $1" (list (car invitation)))) (rsvps (exec-query conn "SELECT fullname, email, attending, guests FROM rsvps WHERE event_id = $1" (list (car invitation))))) (values @@ -231,7 +231,8 @@ It is a base64 string, encoding `%vanity-length' bytes of randomness." (img (@ (src ,(format #f "data:image/webp;base64, ~a" (get-event-image (car invitation)))) (style "float: right; margin: 16px;"))) (p "Where: " ,location) - (p "When: " ,date) + (p "When: " ,date ) + (p "Ends at: " ,end-date) (p ,@(cdr (xml->sxml (format #f "<div>~a</div>" description))))) (form (@ (id "rsvp-input") (action "/apps/rsvp") |