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

View File

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