about summary refs log tree commit diff
path: root/users/grfn/bbbg/src/bbbg/handlers/events.clj
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2022-01-06T16·19-0500
committergrfn <grfn@gws.fyi>2022-01-20T14·32+0000
commitc364b1273b880d71f7c975bde74aff34a078c241 (patch)
treeff4d99896e93bb3c02bfb9c61fe2d0ad26a29649 /users/grfn/bbbg/src/bbbg/handlers/events.clj
parent86496ca4cd162f50dd1f1401dbfaac2fb817b387 (diff)
feat(grfn/bbbg): Add delete event button r/3643
Change-Id: I763e7a6b367ea5b474ab3aa13c7ff21e99db34af
Reviewed-on: https://cl.tvl.fyi/c/depot/+/5023
Reviewed-by: grfn <grfn@gws.fyi>
Autosubmit: grfn <grfn@gws.fyi>
Tested-by: BuildkiteCI
Diffstat (limited to 'users/grfn/bbbg/src/bbbg/handlers/events.clj')
-rw-r--r--users/grfn/bbbg/src/bbbg/handlers/events.clj19
1 files changed, 17 insertions, 2 deletions
diff --git a/users/grfn/bbbg/src/bbbg/handlers/events.clj b/users/grfn/bbbg/src/bbbg/handlers/events.clj
index d41caec39bc7..6f6d6f3585ae 100644
--- a/users/grfn/bbbg/src/bbbg/handlers/events.clj
+++ b/users/grfn/bbbg/src/bbbg/handlers/events.clj
@@ -89,8 +89,15 @@
    [:div.page-header
     [:h1 (format-date (::event/date event)
                       FormatStyle/FULL)]
-    [:a {:href (str "/signup-forms/" (::event/id event) )}
-     "Go to Signup Form"]]
+    [:div.spacer]
+    [:a.button {:href (str "/signup-forms/" (::event/id event) )}
+     "Go to Signup Form"]
+    [:form#delete-event
+     {:method :post
+      :action (str "/events/" (::event/id event) "/delete")
+      :data-confirm "Are you sure you want to delete this event?"}
+     [:input.error {:type "submit"
+                    :value "Delete Event"}]]]
    [:div.stats
     [:p (pluralize (:num-rsvps event) "RSVP")]
     [:p (num-attendees event)]]
@@ -220,6 +227,14 @@
                           :attendees attendees})))
           (not-found "Event Not Found")))
 
+      (POST "/delete" []
+        (db/delete! db :event_attendee [:= :event-id id])
+        (db/delete! db :event [:= :id id])
+        (-> (redirect "/events")
+            (flash/add-flash
+             #:flash {:type :success
+                      :message "Successfully deleted event"})))
+
       (GET "/attendees/import" []
         (if-let [event (db/get db :event id)]
           (page-response