 (defn- container-id
   "Return the name of a archive spool directory for a given
   `production` and `sektion`"
-  [production sektion]
-  (case sektion
-    :master (prod/dam-number production)
-    :dist-master (str "ds" (:library_signature production))))
+  ([production sektion]
+   (container-id production sektion nil))
+  ([production sektion volume]
+   (case sektion
+     :master (prod/dam-number production)
+     :dist-master (str "ds" (:library_signature production)
+                       (when (and volume
+                                  (prod/multi-volume? production))
+                         (str "_" volume))))))
 
 (defn- container-path
   "Return the path to the archive spool directory for a given

        (fs/copy-dir (path/recorded-path production) archive-path)
        :dist-master
        (doseq [volume (range 1 (inc (:volumes production)))]
          (let [iso-archive-name (str (container-id production :dist-master)
                                      (when (prod/multi-volume? production)
                                        (str  "_" volume))
                                      ".iso")
                iso-archive-path (.getPath (file archive-path iso-archive-name))]
            (fs/copy+ (path/iso-name production
                                     (when (prod/multi-volume? production) volume))

  and concludes the archiving process from the point of view of the
  production system."
  [production sektion]
  (let [entries (case sektion :master 2 :dist-master (inc (:volumes production)))]
    (doseq [volume (range 1 entries)]
      (let [new-job
            {:verzeichnis (container-id production sektion volume)
             :sektion (case :master "master" :dist-master "cdimage")}
            job (merge default-job new-job)]
        (jdbc/insert! db :container job)))))

(defn- copy-files
  "Copy a `production` to the archive spool dir for the given
