diff options
Diffstat (limited to 'jakob/dynamic')
| -rw-r--r-- | jakob/dynamic/capabilities/rsvp.scm | 5 | ||||
| -rw-r--r-- | jakob/dynamic/schema-rsvp.sql | 1 |
2 files changed, 4 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") 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) ); |