 (defmethod archive "book"
   [production]
   (archive-sektion production :master)
-  (archive-sektion production :dist-master))
+  (archive-sektion production :dist-master)
+  (prod/set-state! production "archived"))
 
 (defmethod archive "periodical"
   [production]

        (doseq [volume (range 1 (inc (:volumes production)))]
          (let [iso-archive-name (str dam-number (when multi-volume? (str "_" volume)) ".iso")
                iso-archive-path (.getPath (file archive-path "produkt" iso-archive-name))]
            (fs/copy+ (path/iso-name production volume) iso-archive-path)))))))

(defmethod archive "other"
  [production]

    (doseq [volume (range 1 (inc (:volumes production)))]
      (let [iso-archive-name (str product_number (when multi-volume? (str "_" volume)) ".iso")
            iso-archive-path (.getPath (file other-spool-dir iso-archive-name))]
        (fs/copy (path/iso-name production volume) iso-archive-path)))
    (prod/set-state! production "archived")))
