Adding remote locations to increase documents traceability.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-11-01 21:11:10 -05:00
parent 95a457e31e
commit bb75994dd0
1 changed files with 3 additions and 2 deletions

View File

@ -61,10 +61,11 @@ GrafoscopioNode >> asLePage [
self root populateTimestamps.
page := LePage new
initializeTitle: 'Grafoscopio Notebook (imported)'.
self nodesInPreorder allButFirst do: [:node |
page addSnippet: node asSnippet ].
self nodesInPreorder allButFirst
do: [:node | page addSnippet: node asSnippet ].
page latestEditTime: self root latestEditionDate.
page createTime: self root earliestCreationDate.
page optionAt: 'remoteLocations' put: self remoteLocations.
^ page.
]