   [resps]
   (if (some #(= serf-organization-role (:Role %)) resps)
     (concat (remove #(= serf-organization-role (:Role %)) resps) 
-          (take 1 (filter #(= serf-organization-role (:Role %)) resps)))
+            (take 1 (filter #(= serf-organization-role (:Role %)) resps)))
     (conj resps
           (cmn/map->ResponsibilityType 
             {:Role serf-organization-role

    aas
    (conj aas (cmn/map->AdditionalAttributeType {:Name attribute-name
                                                 :Description (format "Root SERF %s Object" attribute-name)
                                                 :Value su/not-provided
                                                 :Group nil}))))

(defn- default-serf-additional-attributes
  "Modifies attributes in serf from expected-conversion"
  [aa]
  (let [u-date (:UpdateDate aa)]
  (-> aa
      (select-keys [:Description :Name :Value :Group :UpdateDate :DataType :Value])
      (assoc :Name (or (:Name aa) su/not-provided))
      (cmn/map->AdditionalAttributeType))))

(defn- fix-serf-aa-update-date-format
  "Fixes SERF update-date format to conform to a specific rule"

(defn- fix-publication-reference-url
  [some-url]
  (when some-url
    (cmn/map->RelatedUrlType {:URLs (->> some-url :URLs (take 1))})))

(defn- expected-serf-service-citation
  [citation]
  (assoc citation 
         :DOI nil 
         :ReleasePlace nil 
         :SeriesName nil 
         :DataPresentationForm nil
