3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-10 17:37:20 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix issues on deleting library which is in use by deleted files

Browse source
This commit is contained in:
Andrey Antukh 2022-09-05 13:17:01 +02:00 • committed by Andrés Moya
parent 11018581ed
commit ce7eed5ea0
3 changed files with 21 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

32
backend/src/app/rpc/mutations/files.clj
View file

@ -162,25 +162,21 @@
"Find all files using a shared library, and absorb all library assets
into the file local libraries"
[conn {:keys [id] :as params}]
(let [library (->> (db/get-by-id conn :file id)
(files/decode-row)
(pmg/migrate-file))]
(let [library (db/get-by-id conn :file id)]
(when (:is-shared library)
(let [process-file
(fn [row]
(let [ts (dt/now)
file (->> (db/get-by-id conn :file (:file-id row))
(files/decode-row)
(pmg/migrate-file))
updated-data (ctf/absorb-assets (:data file) (:data library))]
(db/update! conn :file
{:revn (inc (:revn file))
:data (blob/encode updated-data)
:modified-at ts}
{:id (:id file)})))]
(run! process-file (db/query conn :file-library-rel {:library-file-id id}))))))
(let [ldata (-> library files/decode-row pmg/migrate-file :data)]
(->> (db/query conn :file-library-rel {:library-file-id id})
(keep (fn [{:keys [file-id]}]
(some->> (db/get-by-id conn :file file-id {:check-not-found false})
(files/decode-row)
(pmg/migrate-file))))
(run! (fn [{:keys [id data revn] :as file}]
(let [data (ctf/absorb-assets data ldata)]
(db/update! conn :file
{:revn (inc revn)
:data (blob/encode data)
:modified-at (dt/now)}
{:id id})))))))))
;; --- Mutation: Link file to library