[dynamic] Add "end time" for events

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)
 );