Debugging metadata exportation.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-06-11 16:12:05 -05:00
parent 27a28ce543
commit 3202717cea
1 changed files with 1 additions and 1 deletions

View File

@ -16,7 +16,7 @@ LeSnippet >> metadata [
| createEmailSanitized editEmailSanitized |
createEmailSanitized := self createEmail asString withoutXMLTagDelimiters.
editEmailSanitized := self editEmail asString withoutXMLTagDelimiters.
self optionAt: 'metadata' ifAbsentPut: [ ^ Dictionary new ].
self optionAt: 'metadata' ifAbsentPut: [ Dictionary new ].
^ (self optionAt: 'metadata')
at: 'id' put: self uidString;
at: 'parent' put: self parent uid asString36;