diff --git a/resources/schema/seed-data.edn b/resources/schema/seed-data.edn index 54bab5c1..7b342cfa 100644 --- a/resources/schema/seed-data.edn +++ b/resources/schema/seed-data.edn @@ -85,14 +85,17 @@ #:db{:ident :event/kill-variation} #:db{:ident :event/update-variation} #:db{:ident :event/resurrect-variation} + #:db{:ident :event/remove-name-variation} #:db{:ident :event/new-sequence-feature} #:db{:ident :event/kill-sequence-feature} #:db{:ident :event/resurrect-sequence-feature} + #:db{:ident :event/remove-name-sequence-feature} #:db{:ident :event/new-species} #:db{:ident :event/update-species} #:db{:ident :event/new-entity-type} #:db{:ident :event/disable-entity-type} #:db{:ident :event/enable-entity-type} + #:db{:ident :event/remove-name-strain} ;; nonce schema for import only #:db{:ident :importer/historical-gene-version diff --git a/src/wormbase/names/batch/generic.clj b/src/wormbase/names/batch/generic.clj index a29b0da3..70645c78 100644 --- a/src/wormbase/names/batch/generic.clj +++ b/src/wormbase/names/batch/generic.clj @@ -268,7 +268,7 @@ (defn retract-names [request entity-type] (let [name-attr (keyword entity-type "name") - event-ident (keyword "event" (str "remove-" entity-type "-name"))] + event-ident (keyword "event" (str "remove-name-" entity-type))] (adjust-attr-vals name-attr name-attr event-ident