Debugging metadata exportation.
This commit is contained in:
parent
27a28ce543
commit
3202717cea
@ -16,7 +16,7 @@ LeSnippet >> metadata [
|
|||||||
| createEmailSanitized editEmailSanitized |
|
| createEmailSanitized editEmailSanitized |
|
||||||
createEmailSanitized := self createEmail asString withoutXMLTagDelimiters.
|
createEmailSanitized := self createEmail asString withoutXMLTagDelimiters.
|
||||||
editEmailSanitized := self editEmail asString withoutXMLTagDelimiters.
|
editEmailSanitized := self editEmail asString withoutXMLTagDelimiters.
|
||||||
self optionAt: 'metadata' ifAbsentPut: [ ^ Dictionary new ].
|
self optionAt: 'metadata' ifAbsentPut: [ Dictionary new ].
|
||||||
^ (self optionAt: 'metadata')
|
^ (self optionAt: 'metadata')
|
||||||
at: 'id' put: self uidString;
|
at: 'id' put: self uidString;
|
||||||
at: 'parent' put: self parent uid asString36;
|
at: 'parent' put: self parent uid asString36;
|
||||||
|
Loading…
Reference in New Issue
Block a user