johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-12 06:24:17 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

🐛 Fix incorrect file data migration from db to legacy-db

Browse Source
This commit is contained in:
Andrey Antukh
2025-10-13 18:22:40 +02:00
parent d3e28a8307
commit a4192ce835
2 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
backend/src/app/binfile/common.clj
View File

@@ -633,7 +633,7 @@
(dissoc :team-id)
(dissoc :migrations)))
(defn file->file-data-params
(defn- file->file-data-params
[{:keys [id] :as file} & {:as opts}]
(let [created-at (or (:created-at file) (ct/now))
modified-at (or (:modified-at file) created-at)]

12
backend/src/app/features/fdata.clj
View File

@@ -172,16 +172,24 @@
(= backend "legacy-db")
(cond
(= type "main")
(do
(db/delete! cfg :file-data
{:id id :file-id file-id :type "main"}
{::db/return-keys false})
(db/update! cfg :file
{:data data}
{:id file-id}
{::db/return-keys false})
{::db/return-keys false}))
(= type "snapshot")
(do
(db/delete! cfg :file-data
{:id id :file-id file-id :type "snapshot"}
{::db/return-keys false})
(db/update! cfg :file-change
{:data data}
{:file-id file-id :id id}
{::db/return-keys false})
{::db/return-keys false}))
(= type "fragment")
(upsert-in-database cfg