    (ausleihe library-signature)))
 
 (defmethod entry-sexp :musiknoten
-  [{:keys [creator record-id title subtitles name-of-part source-publisher source-date
-           description producer-brief library-signature product-number price]}]
-  (list-item
-   (entry-heading-sexp creator record-id title subtitles name-of-part source-publisher source-date)
+  [{:keys [description producer-brief library-signature product-number price] :as item}]
+  (list-item
+   (entry-heading-sexp item)
    (block (wrap description))
    (block (wrap producer-brief))
    (ausleihe-multi library-signature)
    (verkauf product-number price)))
 
 (defmethod entry-sexp :taktilesbuch
-  [{:keys [creator record-id title subtitles name-of-part source-publisher source-date
-           description producer-brief library-signature product-number price]}]
-  (list-item
-   (entry-heading-sexp creator record-id title subtitles name-of-part source-publisher source-date)
+  [{:keys [description producer-brief library-signature product-number price] :as item}]
+  (list-item
+   (entry-heading-sexp item)
    (block (wrap description))
    (block (wrap producer-brief))
    (ausleihe-multi library-signature)

      (wrap narrator "gelesen von: " " u.a. " false)
      (wrap narrator "gelesen von: "))))

(defn- entry-heading-sexp
  [creator record-id title subtitles name-of-part source-publisher source-date]
  (block {:keep-with-next "always"}
     (bold (wrap creator "" ": " false)
           (link-to-online-catalog record-id (layout/periodify title)))
     (when subtitles " ")
     (layout/render-subtitles subtitles)
     (wrap name-of-part " ")
     (when (or source-publisher source-date) " - ")
     (wrap source-publisher "" (if source-date ", " "") false)
     (wrap (layout/year source-date))))

(defn- ausleihe [signature]
  (when signature

   (ausleihe library-signature)))

(defmethod entry-sexp :ludo
  [{:keys [source-publisher genre-text description
           game-description accompanying-material library-signature] :as item}]
  (list-item
   (entry-heading-sexp item)
   (block (wrap source-publisher))
   (block (wrap genre-text))
   (block (wrap description))
