Adding remote locations to increase documents traceability.
This commit is contained in:
parent
95a457e31e
commit
bb75994dd0
@ -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.
|
||||||
]
|
]
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user