                  :game-materials game-materials))
 
       :e-book item
-      :musiknoten item
+      :musiknoten (-> item
+                      (assoc-some
+                       :braille-grade (braille-music-grade-raw-to-braille-grade braille-music-grade)
+                       :volumes volumes
+                       :accompanying-material accompanying-material))
       :taktilesbuch item)))
 
 (defn select-vals

           series-title series-volume duration
           volumes narrators producer-long
           game-category game-description game-materials
           braille-grade personel-name] :as item
    :or {genre "x01"}}]
  (let [fmt (format-raw-to-format format)
        item (-> {}

  {"kr" :kurzschrift
   "vd" :vollschrift})

(def braille-music-grade-raw-to-braille-grade
  "Mapping between braille-music-grade-raw and braille-grade"
  {"ms" :kurzschrift
   "vd" :vollschrift
   "vs" :fixme})

(defn get-subfield
  "Get the subfield text for the given `path` in the given `record`.
  Returns nil if there is no such subfield"
