gered/mtgcoll
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

do not update card price when price is null

Browse source 
so as to not overwrite an existing price with a null
This commit is contained in:
Gered 2018-06-16 10:30:10 -04:00
parent 010e02023d
commit 134b2082c4
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/mtgcoll/models/cards.clj
View file

@ -76,11 +76,13 @@
(defn update-prices!
[price-source prices & [{:keys [normalized-name? multiverse-id?]}]]
(doseq [{:keys [card-name online? set-code price multiverseid split?] :as card-price} prices]
(if-let [card-ids (if multiverse-id?
(get-card-id-by-multiverse multiverseid set-code card-name split?)
(get-matching-card-ids card-name set-code
{:split? split?
:normalized-name? normalized-name?}))]
(doseq [card-id card-ids]
(update-price! card-id price-source price online?))
(println "no card match found for:" card-name "," set-code))))
(if price
(if-let [card-ids (if multiverse-id?
(get-card-id-by-multiverse multiverseid set-code card-name split?)
(get-matching-card-ids card-name set-code
{:split? split?
:normalized-name? normalized-name?}))]
(doseq [card-id card-ids]
(update-price! card-id price-source price online?))
(println "no card match found for:" card-name "," set-code))
(println "skipping over null price for:" card-name "," set-code))))