Fixing historical traceability for migrated documents with nil values.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-10-20 18:37:51 -05:00
parent 60cfd01f0d
commit 6a3c0332b3
2 changed files with 5 additions and 5 deletions

View File

@ -35,10 +35,10 @@ LeDatabase >> addPageFromMarkdeep: markdeepDocTree withRemote: externalDocLocati
latestEditTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
createEmail: (remoteMetadata at: 'creator');
editEmail: (remoteMetadata at: 'modifier').
snippets do: [ :snippet | | currentParent |
snippets do: [ :snippet | "| currentParent |"
page addSnippet: snippet.
currentParent := page detectParentSnippetWithUid: (snippet metadata at: 'parent').
snippet parent: currentParent.
"currentParent := page detectParentSnippetWithUid: (snippet metadata at: 'parent').
snippet parent: currentParent."
].
page children
do: [ :snippet |

View File

@ -26,8 +26,8 @@ OrderedDictionary >> asLepiterSnippet [
editTime: (LeTime new time: ((self at: 'modified') asDateAndTime));
editEmail: (self at: 'modifier');
createEmail: (self at: 'creator').
response metadata at: 'origin' ifPresent: [ response metadata at: 'origin' put: (self at: 'origin') ].
response metadata at: 'errata' ifPresent: [ response metadata at: 'errata' put: (self at: 'errata') ].
self at: 'origin' ifPresent: [ response metadata at: 'origin' put: (self at: 'origin') ].
self at: 'errata' ifPresent: [ response metadata at: 'errata' put: (self at: 'errata') ].
^ response
]