     (jdbc/with-db-transaction  [t-con (:connection (u/get-db ctx))]
       (insert-badge-content! (assoc input :id id) {:connection t-con})
       (doseq [tag (:tags input)]
-        (insert-badge-content-tag! {:badge-content-id id :tag tag} {:connection t-con}))
+        (insert-badge-content-tag! {:badge_content_id id :tag tag} {:connection t-con}))
       (doseq [a (:alignment input)]
-        (insert-badge-content-alignment! (assoc a :badge-content-id id) {:connection t-con})))
+        (insert-badge-content-alignment! (assoc a :badge_content_id id) {:connection t-con})))
     {:badge_content_id id}))
 

                                :alignment   []
                                :tags        (:tags data)})
      (when (:issuer data)
        (save-issuer-content! (:issuer data)))
      (when (:criteria data)
        (save-criteria-content! (:criteria data)))
      (when (:extensions:OriginalCreator data)
        (save-creator-content! (get-in data [:extensions:OriginalCreator :url]))))))

(defmethod save-badge-content! :default [ctx input]
  (s/validate schemas/BadgeContent input)

  (save-badge-content! ctx (u/http-get input)))

(defmethod save-badge-content! :json [ctx input]
  (let [data (json/read-str input :key-fn keyword)]
    (merge
      (save-badge-content! ctx {:id ""
                                :name        (:name data)
