diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2024-07-23 19:37:01 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2024-07-23 19:37:01 -0400 |
| commit | 659ef8ebccb97eecede22c5e43d9f9bb3f35bdee (patch) | |
| tree | 5eee34f7e9705d946da6a221bd5f3cd6545e569c /jakob/dynamic/capabilities | |
| parent | b38ff0788e83c0364b6d6aca2b7acc50cd61dcfc (diff) | |
[dynamic] Add "end time" for events
Diffstat (limited to 'jakob/dynamic/capabilities')
| -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") |