Fixing non uid assignation when other custom fields are already present.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-08-08 23:01:58 -05:00
parent 3f792e84a7
commit de0655c12e

View File

@ -234,7 +234,7 @@ Tiddler >> fromDictionary: aDictionary [
revision: (aDictionary at: 'revision' ifAbsentPut: [ nil ]).
customKeys := aDictionary keys
copyWithoutAll: (self class instanceVariables collect: [ :each | each name ]).
customKeys ifEmpty: [ self uidGenerator ].
(customKeys includesKey: 'uid') ifFalse: [ self uidGenerator ].
customKeys do: [:key | | valueTemp |
valueTemp := aDictionary at: key.
valueTemp class = Array