From cbe5c0b69bfd82314d4b1cd974f29727a705e20a Mon Sep 17 00:00:00 2001
From: NB Kelly <N.B.Kelly@protonmail.com>
Date: Tue, 8 Oct 2024 20:40:43 +1300
Subject: [PATCH] dont overwrite flips

---
 src/clj/tasks/images.clj | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/clj/tasks/images.clj b/src/clj/tasks/images.clj
index 3bc97fc53d..c7c71b5ecc 100644
--- a/src/clj/tasks/images.clj
+++ b/src/clj/tasks/images.clj
@@ -57,6 +57,8 @@
     (mc/update db card-collection {:code code} {$set {k path}})
     (mc/update db card-collection {:previous-versions {$elemMatch {:code code}}} {$set {prev-k path}})))
 
+(def ^:const cards-to-skip #{"08012" "09001" "26066" "26120"})
+
 (defn- add-card-image
   "Add an image to a card in the db"
   ([db base-path lang resolution f] (add-card-image db base-path lang resolution :stock f))
@@ -69,8 +71,9 @@
              prev-k-root (if (= :stock art-set) code (name art-set))
              prev-k (str/join "." ["images" (name lang) (name resolution) prev-k-root])
              path (str/join "/" [base-path (name lang) (name resolution) (name art-set) filename])]
-         (mc/update db card-collection {:code code} {$set {k path}})
-         (mc/update db card-collection {:previous-versions {$elemMatch {:code code}}} {$set {prev-k path}}))))))
+         (when-not (some #(= % code) cards-to-skip)
+           (mc/update db card-collection {:code code} {$set {k path}})
+           (mc/update db card-collection {:previous-versions {$elemMatch {:code code}}} {$set {prev-k path}})))))))
 
 (defn- add-alt-images
   "All all images in the specified alt directory"