3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-24 05:36:13 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix adding an extra blank page on import

Browse source
This commit is contained in:
Andrés Moya 2022-12-01 11:19:38 +01:00
parent 296b6c646e
commit 148f6cb3c2
5 changed files with 24 additions and 7 deletions
backend/src/app/rpc/commands/files
create.clj

8
backend/src/app/rpc/commands/files/create.clj
View file

@ -31,9 +31,9 @@
(defn create-file
[conn {:keys [id name project-id is-shared data revn
modified-at deleted-at
modified-at deleted-at create-page
ignore-sync-until features]
:or {is-shared false revn 0}
:or {is-shared false revn 0 create-page true}
:as params}]
(let [id (or id (:id data) (uuid/next))
features (-> (into files/default-features features)
@ -43,7 +43,9 @@
(binding [ffeat/*current* features
ffeat/*wrap-with-objects-map-fn* (if (features "storate/objects-map") omap/wrap identity)
ffeat/*wrap-with-pointer-map-fn* (if (features "storage/pointer-map") pmap/wrap identity)]
(ctf/make-file-data id)))
(if create-page
(ctf/make-file-data id)
(ctf/make-file-data id nil))))
features (db/create-array conn "text" features)
file (db/insert! conn :file