From 659ef8ebccb97eecede22c5e43d9f9bb3f35bdee Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Tue, 23 Jul 2024 19:37:01 -0400 Subject: [dynamic] Add "end time" for events --- jakob/dynamic/capabilities/rsvp.scm | 5 +++-- jakob/dynamic/schema-rsvp.sql | 1 + 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'jakob') 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 "
~a
" description))))) (form (@ (id "rsvp-input") (action "/apps/rsvp") diff --git a/jakob/dynamic/schema-rsvp.sql b/jakob/dynamic/schema-rsvp.sql index 3e6a21f..b56f9b5 100644 --- a/jakob/dynamic/schema-rsvp.sql +++ b/jakob/dynamic/schema-rsvp.sql @@ -4,6 +4,7 @@ CREATE TABLE IF NOT EXISTS events ( description varchar(16384) NOT NULL, datetime timestamp with time zone NOT NULL, location varchar(128) NOT NULL, + endtime timestamp with time zone NOT NULL, PRIMARY KEY (id) ); -- cgit v1.3