mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(grfn/bbbg): Only show attendees who haven't signed in

Browse source 
Change-Id: I524fe3f7584fe8a0fbaecbce62f9f875a1735b96
Reviewed-on: https://cl.tvl.fyi/c/depot/+/4633
Reviewed-by: grfn <grfn@gws.fyi>
Autosubmit: grfn <grfn@gws.fyi>
Tested-by: BuildkiteCI
This commit is contained in:
Griffin Smith 2021-12-26 09:50:25 -05:00 committed by clbot
parent 80ef71e995
commit f7d6ad1cea
2 changed files with 19 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
users/grfn/bbbg/src/bbbg/db/attendee.clj
View file

@ -23,12 +23,13 @@
(db/list db (search query q))))
(defn for-event
([event-id]
(for-event {:select [:attendee.*]
:from [:attendee]}
event-id))
([db-or-query event-id]
(if (db/database? db-or-query)
(for-event db-or-query
{:select [:attendee.*]
:from [:attendee]}
event-id)
(db/list db-or-query (for-event event-id))
(-> db-or-query
(merge-join :event_attendee [:= :attendee.id :event_attendee.attendee_id])
(merge-where [:= :event_attendee.event_id event-id]))))

21
users/grfn/bbbg/src/bbbg/handlers/signup_form.clj
View file

@ -1,15 +1,17 @@
(ns bbbg.handlers.signup-form
(:require
[bbbg.attendee :as attendee]
[bbbg.db :as db]
[bbbg.db.attendee :as db.attendee]
[bbbg.db.event :as db.event]
[bbbg.event :as event]
[bbbg.handlers.core :refer [page-response authenticated? *authenticated?*]]
[compojure.core :refer [GET context]]
[java-time :refer [local-date]]
[ring.util.response :refer [redirect]]
[bbbg.db.attendee :as db.attendee]
[bbbg.handlers.core
:refer [*authenticated?* authenticated? page-response]]
[cheshire.core :as json]
[bbbg.attendee :as attendee]))
[compojure.core :refer [context GET]]
[honeysql.helpers :refer [merge-where]]
[java-time :refer [local-date]]
[ring.util.response :refer [redirect]]))
(defn no-events-page [{:keys [authenticated?]}]
[:div.no-events
@ -76,7 +78,12 @@
(GET "/:event-id" [event-id]
(if-let [event (db/get db :event event-id)]
(let [attendees (db.attendee/for-event db event-id)]
(let [attendees (db/list db
(->
(db.attendee/for-event event-id)
(merge-where [:or
[:= :attended nil]
[:not :attended]])))]
(page-response
(signup-page {:event event
:attendees attendees})))