(ns metabase.models.pulse-channel-recipient (:require [methodical.core :as methodical] [toucan2.core :as t2])) | |
Used to be the toucan1 model name defined using [[toucan.models/defmodel]], not it's a reference to the toucan2 model name. We'll keep this till we replace all these symbols in our codebase. | (def PulseChannelRecipient :model/PulseChannelRecipient) |
(methodical/defmethod t2/table-name :model/PulseChannelRecipient [_model] :pulse_channel_recipient) | |
(derive :model/PulseChannelRecipient :metabase/model) | |
Deletes | (t2/define-before-delete :model/PulseChannelRecipient
[{channel-id :pulse_channel_id, pulse-channel-recipient-id :id}]
(let [other-recipients-count (t2/count PulseChannelRecipient
:pulse_channel_id channel-id
:id [:not= pulse-channel-recipient-id])
last-recipient? (zero? other-recipients-count)]
(when last-recipient?
;; make sure this channel doesn't have any email-address (non-User) recipients.
(let [details (t2/select-one-fn :details :model/PulseChannel :id channel-id)
has-email-addresses? (seq (:emails details))]
(when-not has-email-addresses?
(t2/delete! :model/PulseChannel :id channel-id)))))) |