Debugging metadata exportation.
This commit is contained in:
parent
27a28ce543
commit
3202717cea
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user