           (let [property-name (str "evidence_id:" evidence-id)]
             (delete-user-badge-evidence! {:id evidence-id :user_badge_id user-badge-id} {:connection tx})
             (delete-user-evidence-property! {:user_id user-id :name property-name} {:connection tx})))
+
+        ;;send badge info to factory
+        (send-badge-info-to-obf ctx user-badge-id user-id)
+
         {:status "success"})
       {:status "error"})
     (catch Object _


;;EVIDENCE

;;TEST
(defn badge-evidences "get user-badge evidences"
  ([ctx badge-id]
   (select-user-badge-evidence {:user_badge_id badge-id} (u/get-db ctx)))

        (update-user-badge-evidence! {:url url :id id} (u/get-db ctx))
        (insert-user-badge-evidence-url<! {:user_badge_id user-badge-id :url url} (u/get-db ctx)))))

;;Refactor
(defn save-badge-evidence [ctx user-id user-badge-id evidence]
  (let [{:keys [id name narrative url resource_id resource_type mime_type]} evidence]
    (try+
