Offray/MiniDocs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixing historical traceability for migrated documents with nil values.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/MiniDocs/LeDatabase.extension.st
View File

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

4
src/MiniDocs/OrderedDictionary.extension.st
View File

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