Debugging metadata export/import.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-06-11 16:35:29 -05:00
parent 3202717cea
commit 23335a7727
2 changed files with 2 additions and 9 deletions

View File

@ -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: [ OrderedDictionary 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;

View File

@ -10,14 +10,7 @@ OrderedDictionary >> asLepiterSnippet [
| response | | response |
self at: 'className' ifAbsent: [ ^ nil ]. self at: 'className' ifAbsent: [ ^ nil ].
response := (self at: 'className') asClass new. response := (self at: 'className') asClass new.
response fromString: (self at: 'content'). response fromDictionary: self.
response
uid: (LeUID new uidString: (self at: 'id'));
parent: (self at: 'parent');
createTime: (LeTime new time: ((self at: 'created')asDateAndTime));
editTime: (LeTime new time: ((self at: 'modified') asDateAndTime));
editEmail: (self at: 'modifier');
createEmail: (self at: 'creator').
self at: 'origin' ifPresent: [ response metadata at: 'origin' put: (self at: 'origin') ]. self at: 'origin' ifPresent: [ response metadata at: 'origin' put: (self at: 'origin') ].
self at: 'errata' ifPresent: [ response metadata at: 'errata' put: (self at: 'errata') ]. self at: 'errata' ifPresent: [ response metadata at: 'errata' put: (self at: 'errata') ].
^ response ^ response