feat(grfn/bbbg): Allow creating events with attendees

Change-Id: I91a6a54921b90098040eb315d8b5385bd42879ac
Reviewed-on: https://cl.tvl.fyi/c/depot/+/4573
Tested-by: BuildkiteCI
Reviewed-by: grfn <grfn@gws.fyi>
Autosubmit: grfn <grfn@gws.fyi>

users/grfn/bbbg/src/bbbg/handlers/events.clj

@@ -4,7 +4,7 @@
    [bbbg.db.event :as db.event]
    [bbbg.event :as event]
    [bbbg.handlers.core :refer [authenticated? page-response]]
-   [bbbg.meetup.import :refer [import-data!]]
+   [bbbg.meetup.import :refer [import-attendees!]]
    [bbbg.util.display :refer [format-date]]
    [bbbg.util.time :as t]
    [bbbg.views.flash :as flash]
@@ -24,6 +24,13 @@
        [:a {:href (str "/events/" (::event/id event))}
         (format-date (::event/date event))]])]])
 
+(defn- import-attendee-list-form-group []
+  [:div.form-group
+   [:label "Import Attendee List"
+    [:br]
+    [:input {:type :file
+             :name :attendees}]]])
+
 (defn event-page [{:keys [event]}]
   [:div.event-page
    [:h1 (format-date (::event/date event))]
@@ -39,11 +46,7 @@
     [:form {:method :post
             :action (str "/events/" (::event/id event) "/attendees")
             :enctype "multipart/form-data"}
-     [:div.form-group
+     (import-attendee-list-form-group)
-      [:label "Import Attendee List"
-       [:br]
-       [:input {:type :file
-                :name :attendees}]]]
      [:div.form-group
       [:input {:type :submit
                :value "Import"}]]]]])
@@ -51,13 +54,16 @@
 (defn event-form
   ([] (event-form {}))
   ([event]
-   [:form {:method "POST" :action "/events"}
+   [:form {:method "POST"
+           :action "/events"
+           :enctype "multipart/form-data"}
     [:div.form-group
      [:label "Date"
       [:input {:type "date"
                :id "date"
                :name "date"
                :value (str (::event/date event))}]]]
+    (import-attendee-list-form-group)
     [:div.form-group
      [:input {:type "submit"
               :value "Create Event"}]]]))
@@ -70,6 +76,27 @@
          (events-index {:events events
                         :authenticated? (authenticated? request)}))))
 
+    (GET "/new" [date]
+      (page-response
+       {:title "New Event"}
+       (event-form {::event/date date})))
+
+    (POST "/" [date attendees]
+      (let [event (db.event/create! db {::event/date date})
+            message
+            (if attendees
+              (let [num-attendees
+                    (import-attendees! db
+                                       (::event/id event)
+                                       (:tempfile attendees))]
+                (format "Event created with %d attendees"
+                        num-attendees))
+              "Event created")]
+        (-> (str "/signup-forms/" (::event/id event))
+            redirect
+            (flash/add-flash {:flash/type :success
+                              :flash/message message}))))
+
     (context "/:id" [id :<< as-uuid]
       (GET "/" []
         (if-let [event (db/fetch db
@@ -82,24 +109,12 @@
           (not-found "Event Not Found")))
 
       (POST "/attendees" [attendees]
-        (let [num-imported (import-data! db id (:tempfile attendees))]
+        (let [num-imported (import-attendees! db id (:tempfile attendees))]
           (-> (redirect (str "/events/" id))
               (flash/add-flash
                #:flash{:type :success
                        :message (format "Successfully imported %d attendees"
-                                        num-imported)})))))
+                                        num-imported)})))))))
-
-    (GET "/new" [date]
-      (page-response
-       {:title "New Event"}
-       (event-form {::event/date date})))
-
-    (POST "/" [date]
-      (let [event (db.event/create! db {::event/date date})]
-        (-> (str "/signup-forms/" (::event/id event))
-            redirect
-            (flash/add-flash {:flash/type :success
-                              :flash/message "Event Created"}))))))
 
 (comment
   (def db (:db bbbg.core/system))

users/grfn/bbbg/src/bbbg/meetup/import.clj

@@ -88,7 +88,7 @@
 
 ;;;
 
-(defn import-data! [db event-id f]
+(defn import-attendees! [db event-id f]
   (let [rows (read-attendees f)
         attendees (db.attendee/upsert-all! db (map row->attendee rows))
         meetup-id->attendee-id (into {}
@@ -120,6 +120,6 @@
   (def event-id #uuid "09f8fed6-7480-451b-89a2-bb4edaeae657")
 
   (read-attendees -filename-)
-  (import-data! (:db bbbg.core/system) event-id -filename-)
+  (import-attendees! (:db bbbg.core/system) event-id -filename-)
 
   )